Compress::Zlib, gzopen(), gzreadline(), gzclose()

直接使用shell的zmore, zless, zcat打开文件也不错，但是如果gz文件很大，还是应该选择zlib。

#!/usr/bin/perl 
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;