http://qs321.pair.com?node_id=903102


in reply to Re: Creating a .zip file using perl
in thread Creating a .zip file using perl

you can see the following example:

use strict; use warnings; use Archive::Zip; #use Archive::Tar; print "Starting...\n"; # Archive::Zip Synopsis (relative path to directory) my $zip1 = Archive::Zip->new(); $zip1->addFile( 'c:/Perl/bin/ans1.txt' ) or die 'unable to add file to archive'; $zip1->writeToFileNamed('test1.zip'); # Archive::Zip Synopsis (with ALL CAPS DIRECTORY NAME) my $zip2 = Archive::Zip->new(); $zip2->addFile('c:/Perl/bin/ans1.txt' ) or die 'unable to add file to archive'; $zip2->writeToFileNamed('tests.zip'); # Archive::Tar Synopsis (relative path to directory) #my $tar3 = Archive::Tar->new;$tar3->add_files( 'MyArchiveFiles/file1. +txt' )or die 'unable to add file to archive';$tar3->write('test3.tar' +); print "Finished successfully!";