全部博文(279)
分类:
2008-01-22 16:55:11
#!/usr/bin/perl#直接使用shell的zmore, zless, zcat打开文件也不错,
use strict;
use Compress::Zlib;
my $gz = gzopen("a.gz", "rb");
while( $gz->;gzreadline(my $line) >; 0 )
{
chomp $line;
print "$line\n";
}
$gz->;gzclose();
exit 0;