Add ARM files

[dh-make-perl] / dev / arm / libarchive-zip-perl / libarchive-zip-perl-1.18 / examples / unzipAll.pl

diff --git a/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/examples/unzipAll.pl b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/examples/unzipAll.pl
new file mode 100644 (file)
index 0000000..5246ce4
--- /dev/null
+++ b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/examples/unzipAll.pl
@@ -0,0 +1,30 @@
+#!/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();