1# Copies a zip file to another.
2# Usage:
3# perl copy.pl input.zip output.zip
4# $Revision: 1.4 $
5
6use Archive::Zip qw(:ERROR_CODES);
7
8die "usage: perl copy.pl input.zip output.zip\n"
9  if scalar(@ARGV) != 2;
10
11my $zip = Archive::Zip->new();
12
13my $status = $zip->read($ARGV[0]);
14die("read $ARGV[0] failed: $status\n") if $status != AZ_OK;
15
16$status = $zip->writeToFileNamed($ARGV[1]);
17die("writeToFileNamed $ARGV[1] failed: $status\n") if $status != AZ_OK;
18