diff options
Diffstat (limited to 'examples/unzipAll.pl')
-rw-r--r-- | examples/unzipAll.pl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/examples/unzipAll.pl b/examples/unzipAll.pl new file mode 100644 index 0000000..02f35d9 --- /dev/null +++ b/examples/unzipAll.pl @@ -0,0 +1,29 @@ +#!/bin/perl -w +# Extracts all files from the given zip +# $Revision: 1.3 $ +# usage: +# perl unzipAll.pl [-j] zipfile.zip +# if -j option given, discards paths. +# +use strict; + +use vars qw( $opt_j ); +use Archive::Zip qw(:ERROR_CODES); +use Getopt::Std; + +$opt_j = 0; +getopts('j'); + +if (@ARGV < 1) { + die <<EOF + usage: perl $0 [-j] zipfile.zip + if -j option given, discards paths. +EOF +} + +my $zip = Archive::Zip->new(); +my $zipName = shift(@ARGV); +my $status = $zip->read($zipName); +die "Read of $zipName failed\n" if $status != AZ_OK; + +$zip->extractTree(); |