/
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/filtdef
(437B)
#!/usr/bin/perl use strict ; use warnings ; use Compress::Zlib ; binmode STDIN; binmode STDOUT; my $x = deflateInit() or die "Cannot create a deflation stream\n" ; my ($output, $status) ; while (<>) { ($output, $status) = $x->deflate($_) ; $status == Z_OK or die "deflation failed\n" ; print $output ; } ($output, $status) = $x->flush() ; $status == Z_OK or die "deflation failed\n" ; print $output ;
Save
cmd:
run