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

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