Admin
dashboard
file manager
command
php exec
/
/
usr
/
share
/
doc
/
perl-Filter
/
examples
path:
go
upload
mkdir
name
type
size
perms
modified
actions
[parent directory]
closure/
dir
-
0755
2026-08-19 08:10:14
delete
rename
method/
dir
-
0755
2026-08-19 08:10:14
delete
rename
filtdef
file
726 B
0644
2020-06-17 18:57:48
edit
delete
rename
filtuu
file
77 B
0644
2013-03-29 13:56:29
edit
delete
rename
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 ; }
save
cancel