D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
self
/
root
/
usr
/
share
/
doc
/
perl-Filter
/
examples
/
Filename :
filtdef
back
Copy
#!/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 ; }
Name
Size
Last Modified
Owner
Permissions
Actions
closure
Dir
July 28 2023 2:57:23
root
0755
method
Dir
July 28 2023 2:57:23
root
0755
filtdef
0.709
KB
October 13 2019 9:28:27
root
0644
filtuu
0.075
KB
January 21 2015 11:06:32
root
0644
2017 © D7net | D704T team