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

<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