|
Packit |
0bf95d |
# Copies a zip file to another.
|
|
Packit |
0bf95d |
# Usage:
|
|
Packit |
0bf95d |
# perl copy.pl input.zip output.zip
|
|
Packit |
0bf95d |
# $Revision: 1.4 $
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
use Archive::Zip qw(:ERROR_CODES);
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
die "usage: perl copy.pl input.zip output.zip\n"
|
|
Packit |
0bf95d |
if scalar(@ARGV) != 2;
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
my $zip = Archive::Zip->new();
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
my $status = $zip->read($ARGV[0]);
|
|
Packit |
0bf95d |
die("read $ARGV[0] failed: $status\n") if $status != AZ_OK;
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
$status = $zip->writeToFileNamed($ARGV[1]);
|
|
Packit |
0bf95d |
die("writeToFileNamed $ARGV[1] failed: $status\n") if $status != AZ_OK;
|