# zip.pl # Author: Include use strict; use warnings; use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); if ( scalar(@ARGV) < 2 ) { die "Zip.pl\nAuthor:Include\nUsage: zip.pl \n"; } my $opt = shift (@ARGV); my $ofile = shift (@ARGV); # extract a zip file if ( $opt =~ /x/i ) { print "Zip.pl\nAuthor:Include\n"; print "Extracting $ofile...\n"; my $zip = Archive::Zip->new(); die 'Error reading zip file.' if $zip->read($ofile) != AZ_OK; my @members = $zip->members(); foreach my $element (@members) { print "$element\n"; $zip->extractMember($element); } print "Done!\n"; } # create a zip file if ( $opt =~ /c/i ) { print "Zip.pl\nAuthor:Include\n"; print "Creating $ofile...\n"; my $zip = Archive::Zip->new(); foreach my $memberName ( map { glob } @ARGV ) { if ( -d $memberName ) { print "Adding $memberName\n"; warn "Error adding directory $memberName\n" if $zip->addTree( $memberName, $memberName ) != AZ_OK; } else { print "Adding $memberName\n"; $zip->addFile($memberName) or warn "Error adding file $memberName\n"; } } die 'Write error.' if $zip->writeToFileNamed($ofile) != AZ_OK; print "Done!\n"; }