ext/Compress/Zlib/examples/gzcat.zlib

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