document.write('');
document.write('
use strict;
');
document.write('
use Compress::
Zlib;
');
document.write('
');
document.write('
my $file =
$ARGV[0];
');
document.write('
');
document.write('
if (!
$file) {');
document.write('
print "$0 <file>\n";
');
document.write('
exit;
');
document.write('
}');
document.write('
');
document.write('
my $gzfile =
$file.
".gz";
');
document.write('
');
document.write('
open (FILE,
$file);
');
document.write('
binmode FILE;
');
document.write('
');
document.write('
my $buf;
');
document.write('
my $gz = gzopen
($gzfile,
"wb");
');
document.write('
if (!
$gz) {');
document.write('
print "Unable to write $gzfile $!\n";
');
document.write('
exit;
');
document.write('
}');
document.write('
else {');
document.write('
while (my $by =
sysread (FILE,
$buf,
4096)) {');
document.write('
if (!
$gz->
gzwrite($buf)) {');
document.write('
print "Zlib error writing to $gzfile: $gz->gzerror\n";
');
document.write('
exit;
');
document.write('
}');
document.write('
}');
document.write('
$gz->
gzclose();
');
document.write('
print "\'$file\' GZipped to \'$gzfile\'\n";
');
document.write('
}');
document.write('
');