I need to compress a bunch of files, so instead of
making a system call to gzip I figured to try out
Archive::Zip.
After running this code it creates a new file but is
larger in size.
How do I use archive zip to simply zip files so that
they are generally smaller in size?
thank you
derek
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper;
use Readonly;
use Archive::Zip qw ( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new();
# add all readable files and directories below . as
xyz/*
$zip->addTree( '/usr/local/admin', 'derek' );
# and write them into a file
$zip->writeToFileNamed('xxx.zip');
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
