in reply to Unusual IO::Uncompress::Gunzip behavior
use strict; use warnings; use IO::Compress::Gzip qw(gzip $GzipError) ; use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ; my $gzipped; for my $txt ( qw(Alpha Beta Gamma)) { gzip \$txt => \$gzipped, Append => 1 or die "gzip failed: $GzipError\n"; } my $out; gunzip \$gzipped => \$out, MultiStream => 1 or die "gunzip failed: $GunzipError\n"; print "Uncompressed is:\n$out\n";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Unusual IO::Uncompress::Gunzip behavior
by cmv (Chaplain) on Sep 27, 2012 at 14:54 UTC |