diff options
author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-07-31 18:59:09 +0000 |
---|---|---|
committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-07-31 18:59:09 +0000 |
commit | 42c8b23669eac442a303190dad44d78cea63cf59 (patch) | |
tree | 1cc49a1a1813bd802988e88058f353a4e0a23514 /examples/unzipAll.pl | |
download | Archive-Zip-tarball-master.tar.gz |
Archive-Zip-1.49HEADArchive-Zip-1.49master
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(); |