home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / doc / libio-compress-zlib-perl / examples / gzstream < prev   
Encoding:
Text File  |  2008-02-18  |  521 b   |  25 lines
  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" ;
  25.