File: copy.pl

package info (click to toggle)
libarchive-zip-perl 1.68-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 912 kB
  • sloc: perl: 5,832; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 468 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl
# Copies a zip file to another.
# Usage:
# perl copy.pl input.zip output.zip
# $Revision: 1.4 $

use Archive::Zip qw(:ERROR_CODES);

die "usage: perl copy.pl input.zip output.zip\n"
  if scalar(@ARGV) != 2;

my $zip = Archive::Zip->new();

my $status = $zip->read($ARGV[0]);
die("read $ARGV[0] failed: $status\n") if $status != AZ_OK;

$status = $zip->writeToFileNamed($ARGV[1]);
die("writeToFileNamed $ARGV[1] failed: $status\n") if $status != AZ_OK;