/
usr
/
share
/
doc
/
perl-IO-Compress
/
compress-zlib
/
/usr/share/doc/perl-IO-Compress/compress-zlib
mkdir
upload
Name
Size
Mode
Actions
filtdef
437
0644
edit
dl
rm
filtinf
468
0644
edit
dl
rm
gzcat
489
0644
edit
dl
rm
gzgrep
457
0644
edit
dl
rm
gzstream
313
0644
edit
dl
rm
Edit:
/usr/share/doc/perl-IO-Compress/compress-zlib/gzcat
(489B)
#!/usr/bin/perl use strict ; use warnings ; use Compress::Zlib ; #die "Usage: gzcat file...\n" # unless @ARGV ; my $filename ; @ARGV = '-' unless @ARGV ; foreach my $filename (@ARGV) { my $buffer ; my $gz = gzopen($filename, "rb") or die "Cannot open $filename: $gzerrno\n" ; print $buffer while $gz->gzread($buffer) > 0 ; die "Error reading from $filename: $gzerrno" . ($gzerrno+0) . "\n" if $gzerrno != Z_STREAM_END ; $gz->gzclose() ; }
Save
cmd:
run