1 files changed, 26 insertions, 0 deletions
diff --git a/examples/zip.pl b/examples/zip.pl
new file mode 100644
index 0000000..a3811d1
--- /dev/null
+++ b/examples/zip.pl
@@ -0,0 +1,26 @@
+#!/bin/perl -w
+# Creates a zip file, adding the given directories and files.
+# Usage:
+#	perl zip.pl zipfile.zip file [...]
+
+use strict;
+use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
+
+die "usage: $0 zipfile.zip file [...]\n"
+  if (scalar(@ARGV) < 2);
+
+my $zipName = shift(@ARGV);
+my $zip     = Archive::Zip->new();
+
+foreach my $memberName (map { glob } @ARGV) {
+    if (-d $memberName) {
+        warn "Can't add tree $memberName\n"
+          if $zip->addTree($memberName, $memberName) != AZ_OK;
+    } else {
+        $zip->addFile($memberName)
+          or warn "Can't add file $memberName\n";
+    }
+}
+
+my $status = $zip->writeToFileNamed($zipName);
+exit $status;