[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / examples / gzstream

#!/usr/local/bin/perl

use strict ;
use warnings ;
use IO::Compress::Gzip qw(gzip $GzipError);

gzip '-' => '-', Minimal => 1
  or die "gzstream: $GzipError\n" ;

#exit 0;

__END__

#my $gz = new IO::Compress::Gzip *STDOUT 
my $gz = new IO::Compress::Gzip '-'
	  or die "gzstream: Cannot open stdout as gzip stream: $GzipError\n" ;

while (<>) {
    $gz->write($_) 
	or die "gzstream: Error writing gzip output stream: $GzipError\n" ;
}

$gz->close
    or die "gzstream: Error closing gzip output stream: $GzipError\n" ;
Commit	Line	Data
f4c6fd49	1	#!/usr/local/bin/perl
	2
	3	use strict ;
8aa25532	4	use warnings ;
642e522c	5	use IO::Compress::Gzip qw(gzip $GzipError);
f4c6fd49	6
642e522c	7	gzip '-' => '-', Minimal => 1
642e522c	8	or die "gzstream: $GzipError\n" ;
f4c6fd49	9
642e522c	10	#exit 0;
f4c6fd49	11
642e522c	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" ;
f4c6fd49	17
f4c6fd49	18	while (<>) {
642e522c	19	$gz->write($_)
642e522c	20	or die "gzstream: Error writing gzip output stream: $GzipError\n" ;
f4c6fd49	21	}
f4c6fd49	22
642e522c	23	$gz->close
642e522c	24	or die "gzstream: Error closing gzip output stream: $GzipError\n" ;