cpan/IO-Compress/examples/compress-zlib/gzgrep

   1 #!/usr/local/bin/perl
   2
   3 use strict ;
   4 use warnings ;
   5
   6 use Compress::Zlib ;
   7
   8 die "Usage: gzgrep pattern file...\n"
   9     unless @ARGV >= 2;
  10
  11 my $pattern = shift ;
  12
  13 my $file ;
  14
  15 foreach $file (@ARGV) {
  16     my $gz = gzopen($file, "rb")
  17          or die "Cannot open $file: $gzerrno\n" ;
  18
  19     while ($gz->gzreadline($_) > 0) {
  20         print if /$pattern/ ;
  21     }
  22
  23     die "Error reading from $file: $gzerrno\n"
  24         if $gzerrno != Z_STREAM_END ;
  25
  26     $gz->gzclose() ;
  27 }