#!/bin/perl -w
use strict;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS); #$VERSION = '1.30';

die "usage: $0 ziplevel zipfile.zip file [...]\n"
	if (scalar(@ARGV) < 3);

my $zipCompressionLevel = shift(@ARGV);
my $zipName             = shift(@ARGV);
my $zip                 = Archive::Zip->new();

foreach my $memberName (map { glob } @ARGV){
	my $member = $zip->addFile( $memberName )
		or warn "Can't add file $memberName\n";
	$member->desiredCompressionMethod( COMPRESSION_DEFLATED );
	my $pre = $member->desiredCompressionLevel();
	my $mid = $member->desiredCompressionLevel( $zipCompressionLevel );
	my $end = $member->desiredCompressionLevel( );
	print "Compression level:\n\tbefore: $pre, middle: $mid, after: $end\n"; 
	#print "compressed_size:   " . $member->compressedSize() . "\n";
	#print "uncompressed_size: " . $member->uncompressedSize() . "\n";
	### these are the same, since the file isn't actually compressed until writing.
}

my $status = $zip->writeToFileNamed($zipName);

my $zipread = Archive::Zip->new();
$zipread->read( $zipName );

foreach my $member ($zipread->members()){
	print $member->fileName()."\t",
		$member->compressionMethod()."\t",
		$member->desiredCompressionMethod()."\t",
		$member->desiredCompressionLevel(). "\n";
	print "  compressed_size:   " . $member->compressedSize() . "\n";
	print "  uncompressed_size: " . $member->uncompressedSize() . "\n";
}

exit $status
##</code><code>##

$ perl ziptest.pl 9 zip.zip ziptest.pl
Comptession level:
        before: -1, middle: -1, after: 9
ziptest.pl   8    8   -1
  compressed_size:   576
  uncompressed_size: 1449

$ perl ziptest.pl 1 zip.zip ziptest.pl
Comptession level:
        before: -1, middle: -1, after: 1
ziptest.pl   8    8   -1
  compressed_size:   608
  uncompressed_size: 1449

$ perl ziptest.pl 0 zip.zip ziptest.pl
Comptession level:
        before: -1, middle: -1, after: 0
ziptest.pl   8    8   -1
  compressed_size:   1449
  uncompressed_size: 1449