求助perl读.gz文件
这里有一个all.gz压缩的文件,需要一行行读取,然后匹配。
my $i=0;
my $file="all.gz";
open (IN, "gzip -dc $file|");
while (<IN>){
$i++;
if (/all/){
print $_,"\n"
}
}
结果发现$i是读一行增加1,但没有输出匹配到的一行
求解
谢谢
my $i=0;
my $file="all.gz";
open (IN, "gzip -dc $file|");
while (<IN>){
$i++;
if (/all/){
print $_,"\n"
}
}
结果发现$i是读一行增加1,但没有输出匹配到的一行
求解
谢谢
作者: feiyue0908 发布时间: 2011-05-28
经过测试没问题, 你那个压缩文件里有没有包含all字符串的行啊
作者: bargio_susie 发布时间: 2011-05-28