document.write('');
document.write('
');
document.write('
use strict;
');
document.write('
use Compress::
Zlib;
');
document.write('
');
document.write('
my $infile =
$ARGV[0];
');
document.write('
my $outfile =
$ARGV[1];
');
document.write('
');
document.write('
if (!
$infile || !
$outfile) {');
document.write('
print "$0 <infile> <outfile>\n";
');
document.write('
exit;
');
document.write('
}');
document.write('
');
document.write('
my $buffer;
');
document.write('
my $gz =
undef;
');
document.write('
my $success =
1;
');
document.write('
');
document.write('
if (!
open FH,
"> $outfile") {');
document.write('
$success =
0;
');
document.write('
print "Unable to write to \'$outfile\'\n";
');
document.write('
}');
document.write('
else {');
document.write('
binmode FH;
');
document.write('
');
document.write('
print "GZ File = \'$infile\'\n";
');
document.write('
print "OUT File = \'$outfile\'\n";
');
document.write('
');
document.write('
if ($gz = gzopen
($infile,
"rb")) {');
document.write('
while ($gz->
gzread($buffer) >
0) {');
document.write('
print FH
$buffer;
');
document.write('
}');
document.write('
if ($gzerrno != Z_STREAM_END
) {');
document.write('
$success =
0;
');
document.write('
print "ZLib Error: reading $outfile - $gzerrno: $!\n";
');
document.write('
}');
document.write('
else {');
document.write('
$success =
1;
');
document.write('
}');
document.write('
$gz->
gzclose;
');
document.write('
}');
document.write('
else {');
document.write('
$success =
0;
');
document.write('
print "ZLib Error: opening $infile - $gzerrno: $!\n";
');
document.write('
}');
document.write('
close FH;
');
document.write('
}');
document.write('
');
document.write('
');