Perl怎样获取指定字符串所在行的上N行和下M行？

DAIC

a.txt内容如下：

111perl
222perl
333perl
444perl
555perl
666perl

假设N=2，M=1，想获取字符串“444perl”所在行的上两行到下一行之间的内容：

222perl
333perl
444perl
555perl

sxw

1. #usr/bin/perl
   
2. open (FH,"<a.txt") || die "Can't find it\n";
   
3. while (<FH>) {
   
4. $a=$. if /444perl/;
   
5. }
   
6. close FH;
   
7. open (FH,"<a.txt") || die "Can't find it\n";
   
8. $b=$a-2;
   
9. $c=$a+1;
   
10. if ($b..$c) {print};
    
11. close FH;

复制代码

求高人简化一下。用seek出现问题了：行号变了

523066680

我觉得一般可能要考虑一段落中如果出现 多个 444perl的情况……
罢了，先大致做一下，有细节再说。学习学习

1. 
   
2. open READ,"<src.txt";
   
3. @all=<READ>;
   
4. $n=2;
   
5. $m=1;
   
6. $line=0;
   
7. foreach (@all) {
   
8.         chomp;
   
9.         $line+=1;
   
10.         if (/^444perl$/) {
    
11.                 for $tmp (($line-$n) .. ($line+$m)) {
    
12.                         print "Line$tmp : $all[$tmp-1]\n";
    
13.                 }
    
14.         }
    
15. }
    
16. <STDIN>;
    

复制代码

以上代码只是对存在444perl行的前两到后一行进行枚举，并没有判断范围是否超标。

Batcher

2# sxw


你是不是下面这个想法？

1. open (IN,"a.txt");
   
2. while (<IN>) {
   
3.     $a = $. if /444perl/;
   
4. }
   
5. close IN;
   
6. my $b = $a - 2;
   
7. my $c = $a + 1;
   
8. open (IN,"a.txt");
   
9. while (<IN>) {
   
10.     print if $. >= $b && $. <= $c;
    
11. }
    
12. close IN;

复制代码