Blame examples/unzipAll.pl

Packit 0bf95d
#!/bin/perl -w
Packit 0bf95d
# Extracts all files from the given zip
Packit 0bf95d
# $Revision: 1.3 $
Packit 0bf95d
# usage:
Packit 0bf95d
#	perl unzipAll.pl [-j] zipfile.zip
Packit 0bf95d
# if -j option given, discards paths.
Packit 0bf95d
#
Packit 0bf95d
use strict;
Packit 0bf95d
Packit 0bf95d
use vars qw( $opt_j );
Packit 0bf95d
use Archive::Zip qw(:ERROR_CODES);
Packit 0bf95d
use Getopt::Std;
Packit 0bf95d
Packit 0bf95d
$opt_j = 0;
Packit 0bf95d
getopts('j');
Packit 0bf95d
Packit 0bf95d
if (@ARGV < 1) {
Packit 0bf95d
    die <
Packit 0bf95d
	usage: perl $0 [-j] zipfile.zip
Packit 0bf95d
	if -j option given, discards paths.
Packit 0bf95d
EOF
Packit 0bf95d
}
Packit 0bf95d
Packit 0bf95d
my $zip     = Archive::Zip->new();
Packit 0bf95d
my $zipName = shift(@ARGV);
Packit 0bf95d
my $status  = $zip->read($zipName);
Packit 0bf95d
die "Read of $zipName failed\n" if $status != AZ_OK;
Packit 0bf95d
Packit 0bf95d
$zip->extractTree();