/
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/filtinf
(468B)
#!/usr/bin/perl use strict ; use warnings ; use Compress::Zlib ; my $x = inflateInit() or die "Cannot create a inflation stream\n" ; my $input = '' ; binmode STDIN; binmode STDOUT; my ($output, $status) ; while (read(STDIN, $input, 4096)) { ($output, $status) = $x->inflate(\$input) ; print $output if $status == Z_OK or $status == Z_STREAM_END ; last if $status != Z_OK ; } die "inflation failed\n" unless $status == Z_STREAM_END ;
Save
cmd:
run