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