#!/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" ; |