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>