git.maemo.org Git - dh-make-perl/blob - dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/debian/libio-compress-zlib-perl/usr/share/doc/libio-compress-zlib-perl/examples/gzstream

   1 #!/usr/local/bin/perl
   2
   3 use strict ;
   4 use warnings ;
   5 use IO::Compress::Gzip qw(gzip $GzipError);
   6
   7 gzip '-' => '-', Minimal => 1
   8   or die "gzstream: $GzipError\n" ;
   9
  10 #exit 0;
  11
  12 __END__
  13
  14 #my $gz = new IO::Compress::Gzip *STDOUT
  15 my $gz = new IO::Compress::Gzip '-'
  16           or die "gzstream: Cannot open stdout as gzip stream: $GzipError\n" ;
  17
  18 while (<>) {
  19     $gz->write($_)
  20         or die "gzstream: Error writing gzip output stream: $GzipError\n" ;
  21 }
  22
  23 $gz->close
  24     or die "gzstream: Error closing gzip output stream: $GzipError\n" ;