怎样输出 匹配某行的 后面几行？？？

本帖最后由 nb509 于 2010-12-29 20:42 编辑
比如我要查找输出含有ADD的行，以及他后面的几行，（后面行数不定）怎么弄啊？

结果
------

如下脚步可以达到目的：

#! perl -w
use strict;

#read all file data to a scalar
sub ReadFileData
{
        my ($filename) = @_;
        open my $fh,'<',"$filename" or die $!;
        my $contend = do{local $/; <$fh>};  #$/ is a special signal use to identify the end of the line;
        return $contend;
}

my $contendline = &ReadFileData("demo.txt");
$contendline =~ s/(TEL|FAX):\d+(.*?)(ADD|$)/\3/isg;
#$contendline =~ s/(?!ADD)(?!\d+):\d+(.*?)(ADD)/\3/isg;
print $contendline;


注： 上面的(TEL|FAX)不好，不知道怎么用非ADD的字母串代替