gzgrep

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

#!/usr/local/bin/perl

use Compress::Zlib ;

die "Usage: gzgrep pattern file...\n"
    unless @ARGV >= 2;

$pattern = shift ;

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

    while ($gz->gzreadline($_) > 0) {
        print if /$pattern/ ;
    }

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