/
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
470
0644
edit
dl
rm
gzcat
495
0644
edit
dl
rm
gzgrep
463
0644
edit
dl
rm
gzstream
314
0644
edit
dl
rm
Edit:
/usr/share/doc/perl-IO-Compress/compress-zlib/filtinf
(470B)
#!/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