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();