ACIL FM

Nama	Ukuran	Aksi
calcSizes.pl	948 B	View DL Edit
copy.pl	452 B	View DL Edit
extract.pl	896 B	View DL Edit
mailZip.pl	1.58 MB	View DL Edit
mfh.pl	640 B	View DL Edit
readScalar.pl	750 B	View DL Edit
selfex.pl	1.54 MB	View DL Edit
unzipAll.pl	561 B	View DL Edit
updateTree.pl	822 B	View DL Edit
updateZip.pl	892 B	View DL Edit
writeScalar.pl	614 B	View DL Edit
writeScalar2.pl	613 B	View DL Edit
zip.pl	666 B	View DL Edit
zipcheck.pl	1.03 MB	View DL Edit
zipGrep.pl	1.42 MB	View DL Edit
zipinfo.pl	4.43 MB	View DL Edit
ziprecent.pl	7.51 MB	View DL Edit
ziptest.pl	1.76 MB	View DL Edit

Edit file: /usr/share/doc/perl-Archive-Zip/examples/zipcheck.pl

#!/usr/bin/perl -w
# usage: valid zipname.zip
# exits with non-zero status if invalid zip
# status = 1: invalid arguments
# status = 2: generic error somewhere
# status = 3: format error
# status = 4: IO error
use strict;
use Archive::Zip qw(:ERROR_CODES);
use IO::Handle;
use File::Spec;

# instead of stack dump:
Archive::Zip::setErrorHandler(sub { warn shift() });

my $nullFileName = File::Spec->devnull();
my $zip          = Archive::Zip->new();
my $zipName      = shift(@ARGV) || exit 1;
eval {
    my $status = $zip->read($zipName);
    exit $status if $status != AZ_OK;
};
if ($@) { warn 'error reading zip:', $@, "\n"; exit 2 }

eval {
    foreach my $member ($zip->members) {
        next if $member->isSymbolicLink();
        my $fh = IO::File->new();
        $fh->open(">$nullFileName") || die "can't open $nullFileName\: $!\n";
        my $status = $member->extractToFileHandle($fh);
        if ($status != AZ_OK) {
            warn "Extracting ", $member->fileName(), " from $zipName failed\n";
            exit $status;
        }
    }
}

Batal