ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-Filter/examples
/
usr
share
doc
perl-Filter
examples
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
closure
-
chmod
Open
Rename
Delete
method
-
chmod
Open
Rename
Delete
filtdef
726 B
chmod
View
DL
Edit
Rename
Delete
filtuu
77 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-Filter/examples/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 ; }
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply