sxw

#usr/bin/perl
open (FH,"<a.txt") || die "Can't find it\n";
while (<FH>) {
$a=$. if /444perl/;
}
close FH;
open (FH,"<a.txt") || die "Can't find it\n";
$b=$a-2;
$c=$a+1;
if ($b..$c) {print};
close FH;
复制代码

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