░▒▓████████████████████████████████▓▒░ ░▒▓█ ▓▒░ ░▒▓█ ~ S W A M P ~ ▓▒░ ░▒▓█ ▓▒░ ░▒▓████████████████████████████████▓▒░
vps.doorgans.com
LOCATION:
/usr/share/doc/perl-Filter/examples
☗ ROOT
↻ REFRESH
✎ CARVE FLESH
EDITING: filtdef
#!/usr/bin/perl use strict ; use warnings ; my ($file, $output, $status) ; use Compress::Zlib ; die "Create a decompressor for a pl.gz\nUsage: filtdef file > filtfile\n" unless @ARGV == 1; foreach $file (@ARGV) { open (F, "<", $file) or die "Cannot open $file: $!\n" ; my $x = deflateInit() or die "Cannot create a deflation stream\n" ; print "use Filter::Decompress;\n" ; while (<F>) { ($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 ; close F ; }
CANCEL
Name
Type
Size
Modified
Actions
↩ ..
DIR
—
—
📁 closure/
DIR
—
2024-07-31 11:31
📁 method/
DIR
—
2024-07-31 11:31
📄 filtdef
?
726 B
2019-10-13 09:28
EDIT
📄 filtuu
?
77 B
2015-01-21 23:06
EDIT