note
changma_ha
<p>you can see the following example:</p>
<code>
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!";
</code>
903049
903050