Add ARM files

[dh-make-perl] / dev / arm / libarchive-zip-perl / libarchive-zip-perl-1.18 / debian / libarchive-zip-perl / usr / share / doc / libarchive-zip-perl / examples / extract.pl

diff --git a/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/debian/libarchive-zip-perl/usr/share/doc/libarchive-zip-perl/examples/extract.pl b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/debian/libarchive-zip-perl/usr/share/doc/libarchive-zip-perl/examples/extract.pl
new file mode 100644 (file)
index 0000000..4425ab4
--- /dev/null
+++ b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/debian/libarchive-zip-perl/usr/share/doc/libarchive-zip-perl/examples/extract.pl
@@ -0,0 +1,40 @@
+#!/bin/perl -w
+# Extracts the named files into 'extractTest' subdir
+# usage:
+#      perl extract.pl [-j] zipfile.zip filename [...]
+# if -j option given, discards paths.
+#
+# $Revision: 1.5 $
+#
+use strict;
+
+my $dirName = 'extractTest';
+
+use vars qw( $opt_j );
+use Archive::Zip qw(:ERROR_CODES);
+use Getopt::Std;
+
+$opt_j = 0;
+getopts('j');
+
+if (@ARGV < 2)
+{
+       die <<EOF
+       usage: perl extract.pl [-j] zipfile.zip filename [...]
+       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;
+
+foreach my $memberName (@ARGV)
+{
+       print "Extracting $memberName\n";
+       $status = $opt_j 
+               ? $zip->extractMemberWithoutPaths($memberName)
+               : $zip->extractMember($memberName);
+       die "Extracting $memberName from $zipName failed\n" if $status != AZ_OK;
+}