gzcat

来自「perl中编译使用zlib」· 代码 · 共 19 行

#!/usr/local/bin/perl

use Compress::Zlib ;

die "Usage: gzcat file...\n"
    unless @ARGV ;

foreach $file (@ARGV) {
    $gz = gzopen($file, "rb") 
         or die "Cannot open $file: $gzerrno\n" ;

    print $buffer while $gz->gzread($buffer) > 0 ;

    die "Error reading from $file: $gzerrno" . ($gzerrno+0) . "\n" 
        if $gzerrno != Z_STREAM_END ;
    
    $gz->gzclose() ;
}