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;