求教一个指定某段文字的打印问题。

zz

比如我有一篇文章
xxxxxxxxxxxxxxxxxxx
xxxxxTomxxxxxxxxxx
xxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxJerryxxxx
xxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxx
我只想打印带有Tom的那一行，并且一直逐行打印，直到遇到“Jerry”才停止打印。
我只知道怎么打印Tom那一行
open(FILE,"test.log"||die"Can't open !\n";
while(my $line=<FILE> {
        chomp($line);
        if ($line=~/^Tom/i){
        print "$line\n";
                }
}
close(FILE);
但后面的部分怎么实现呢？
请高手给点指点啊！

zz

如果将文章指到数组@file里，那么在里面找到指定的字符，如何反向去确定他是数组中第几个呢？就是$file[?]啊！

welbird

或者改写成以下代码？

open(FILE,"test.log"||die"Can't open !\n";
my $p=0;
while(my $line=<FILE> {
chomp($line);
if ($line=~/^Tom/i){
print "$line\n";
$p=1;
}
$p=0 if $line=~/^Jerry/i;
print "$line\n" if $p==1;
}
close(FILE);

zz

灰常灰常感谢啦...
这个办法实用简单，实现了已经。