perl 获取文件内容里第一个AAA和最后一个AAA

Perl脚本解析文件示例

weixin_30247307

于 2016-07-08 12:46:00 发布

阅读量211

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/zhaoyangjian724/p/6199670.html

本文介绍了一个使用Perl语言编写的脚本示例，该脚本用于从文本文件中筛选包含特定字符串‘AAA’的行，并记录这些行的行号及具体内容。通过此示例展示了Perl处理文本文件的基本方法。

<pre name="code" class="html">[root@wx03 ~]# cat -n aaa
     1	3`13
     2	edqae
     3	daa
     4	313
     5	1313
     6	1
     7	AAAhash1
     8	e31
     9	dad
    10	fad
    11	AAAA
    12	32131
    13	AAA
    14	qe
    15	dad
    16	AAA
    17	fdaaf
    18	fafa
    19	AAAhash2
[root@wx03 ~]# cat q1.pl 
my @arr=();
open (LOG ,"<","aaa");  
      while (<LOG>) { 
      if ($_ =~/AAA/){$num=$.;push (@arr,$num); $hash{$num}=$_;};
};
print $arr[0]."\n";
print $hash{$arr[0]}."\n";
print $arr[-1]."\n";
print $hash{$arr[-1]}."\n";

[root@wx03 ~]# perl q1.pl 
7
AAAhash1

19
AAAhash2

转载于:https://www.cnblogs.com/zhaoyangjian724/p/6199670.html