--- Rob Dixon <[EMAIL PROTECTED]> wrote:
> Derek B. Smith wrote:
> >
> > --- Tom Phoenix <[EMAIL PROTECTED]> wrote:
> >
> >>On 9/11/06, Derek B. Smith
> >><[EMAIL PROTECTED]> wrote:
> >>
> >>>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.
> >>
> >>That module automatically uses Compress::Zlib to
> compress the data. Were any
> >>of the files compressed before you started?
> Compression algorithms can't
> >>shrink every file, and files that have compact
> formats can't be shrunk. If you
> >>try collecting the files with another archiving
> tool, you should see roughly
> >>the same results, if they're already compact: The
> archive will be roughly the
> >>same size as the uncompressed data, or a little
> larger.
> >>
> >>Cheers!
> >>
> >>--Tom Phoenix
> >
> >
> > **********************
> > Thank you 4 replying!.
> > The files attributes prior to using gzip were:
> > -rw-r--r-- 1 root sys 9007879 Sep
> 11
> > 15:24 derek.log
> >
> > after compression using gzip are:
> > -rw-r--r-- 1 root sys 393013 Sep
> 11
> > 15:24 derek.log.gz
> >
> > as you can see this file was compressed
> significantly
> > as it is a large text based file:
> > #>file derek.log
> > derek.log: ascii text
> >
> > Is this code syntactically correct to produce a
> zipped
> > file ? I read the POD and there are no clear
> > examples. Please help...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
> > $zip->addTree( '/usr/local/admin', 'derek' );
> > # and write them into a file
> > $zip->writeToFileNamed('xxx.zip');
>
> That looks fine to me Derek, but of course it
> depends on what you're trying to
> do! What you have written will add (as your comment
> says) all readable files and
> directories at or below /usr/local/admin. Check the
> resulting zip file to see if
> it has stuff in it you didn't mean to archive.
>
> I wonder if you just meant to zip derek.log? If so,
> then replace the addTree
> method call with
>
> my $entry =
> $zip->addFile('/usr/local/admin/derek.log',
> 'derek.log') or die 'Failed to add file';
>
> and if you want the target file as small as possible
> (at the expense of a longer
> compression time) then add:
>
> $entry->desiredCompressionLevel(9);
>
> after the call to addFile and before
> writeToFileNamed.
>
> HTH,
>
> Rob
>
**********************************************
Rob,
Initially I was playing with addFile but opted for the
addTree...anyway your ideas did the trick...thank you!
>
>
>
__________________________________________________
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>
