git.maemo.org Git - dh-make-perl/blob - dev/i386/libarchive-zip-perl/libarchive-zip-perl-1.18/examples/copy.pl

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