[perl5.git] / ext / IO_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
25f0751f PM	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" ;