首页 > 编程语言 >perl语言实现:查找file中相同的词,并输出

perl语言实现:查找file中相同的词,并输出

时间:2023-02-11 16:36:29浏览次数:68  
标签:tmp count name same perl content 查找 file

#!/usr/bin/perl

open (FILE, "<ARGV[0]") or die "Can't open $ARGV[0] file";

open(SAME_OUT,">same_out.h") pr die "Can't open same_out.h file";

my $i=0;

my $count=1;

my @file_cotent=();

#将文件按行为元素放入数组中方便处理

while (<FILE>){

push @file_count,$_;

}

foreach $tmp_name (@file_content){

$count=$count+1;

#因为我的文件内容都是 #define content 12; 我希望找到content相同的词,并输出

if($tmp_name =~ /#define\s([^\s]*)\s.*/){

      $tmp_name=$1;

    for ($i=$count; $i<@file_content;$i++){

if($file_content[$i] =~ /#define\s([^\s]*)\s.*/){

      $tmp_name=$1;

      if($tmp_name_same eq $tmp_name){

     print SAME_OUT "$tmp_name_same\n";

}

}

}

}

close FILE;

close SAME_OUT;

标签:tmp,count,name,same,perl,content,查找,file
From: https://www.cnblogs.com/xiaoyong5/p/17111917.html

相关文章

  • makefile 编写要点
    PS:要转载请注明出处,本人版权所有。PS:这个只是基于《我自己》的理解,如果和你的原则及想法相冲突,请谅解,勿喷。前置说明  本文作为本人csdnblog的主站的备份。(BlogID......
  • perl琐碎记录
    1、perl将perl命令行的参数列表放进数组ARGV(@ARGV),索引值从0开始。2、@_含义是perl中默认的数组变量,或者是sub子函数中的默认参数列表3、定义数组位@array,其中$index_m......
  • 『 再看.NET7』新的访问修饰符——file
    访问修符,是OOP中一个很重要的知识点。在C#中,class(类)的访问修饰符有public和internal两种。类成员(属性,方法,字段,事件等)的访问修饰符public,internal,protected,private......
  • Java学习File之递归
    递归概述:以编程的角度来看,递归指的是方法定义中调用方法本身的现象.递归解决问题的思路:把一个复杂的问题层层转化为一个与原问题相似的规模较小的问题来求解递归策略只需......
  • 『 再看.NET7』新的访问修饰符——file
    访问修符,是OOP中一个很重要的知识点。在C#中,class(类)的访问修饰符有public和internal两种。类成员(属性,方法,字段,事件等)的访问修饰符public,internal,protected,priva......
  • 『 再看.NET7』新的访问修饰符——file
    访问修符,是OOP中一个很重要的知识点。在C#中,class(类)的访问修饰符有public和internal两种。类成员(属性,方法,字段,事件等)的访问修饰符public,internal,protected,priva......
  • element-ui tree数据中根据id查找node
    递归返回正确数据尽早返回findNode(list,id){letresult=nullfor(leti=0;i<list.length;i++){if(list[i].ID===id){......
  • pywebio put_file 相关源码源代码
      https://www.npmjs.com/package/file-saver用的这个包 saveAs函数 send_messagehandle_messagedispatch_message ......
  • SQL SERVER——TempDB问题查找定位与解决
    SQLSERVER——TempDB问题查找定位与解决z_cloud_for_SQL2023-01-1229步骤1.TempDB压力诊断等待类型诊断TempDB的争用压力在等待篇中已经简单介绍,等待的表现......
  • Java学习之File类的删除功能
    publicbooleandelete()删除由此抽象路径名表示的文件或目录绝对路径和相对路径的区别绝对路径:完整的路径名,不需要任何其他信息就可以定位它所表示的文件,例如:/Users/St......