ext/Compress/Zlib/examples/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 $file = $filename ;
  19     $file = \*STDIN if $file eq '-' ;
  20
  21     my $gz = gzopen($file, "rb")
  22          or die "Cannot open $file: $gzerrno\n" ;
  23
  24     print $buffer while $gz->gzread($buffer) > 0 ;
  25
  26     die "Error reading from $filename: $gzerrno" . ($gzerrno+0) . "\n"
  27         if $gzerrno != Z_STREAM_END ;
  28
  29     $gz->gzclose() ;
  30 }