Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: Archive::Zip changing compression on the fly

by cormanaz (Chaplain)
on May 22, 2010 at 16:12 UTC ( #841185=note: print w/ replies, xml ) Need Help??


in reply to Re: Archive::Zip changing compression on the fly
in thread Archive::Zip changing compression on the fly

Doh! Why didn't I think of that?

Unfortunately even that construction runs in the the problem that the mod seemingly won't add a zip file with addFile. Seems for that you have to use $zip->addMember.


Comment on Re^2: Archive::Zip changing compression on the fly
Re^3: Archive::Zip changing compression on the fly
by zwon (Monsignor) on May 22, 2010 at 16:32 UTC

    There's also a problem with File::Find. Inside wanted it changes directory to the directory where the file is, so you should pass to addFile either absolute file name, or basename, but you're passing relative. It seems though, that Archive::Zip actually opens file later, so basenames will not work either. I recommend you not to invoke addFile from the wanted, but only build list of found files, and add them to the zip later.

    PS Like this:

    use Path::Class qw(file); my @files; find( \&wanted, $startdir ); sub wanted { my $file = file($File::Find::name); return unless -f $file->basename; push @files, $File::Find::name; } for (@files) { if (/\.zip/) { $zip->addFile($_)->desiredCompressionLevel(0); } else { $zip->addFile($_); } } $zip->writeToFileNamed('test.zip');
      There's also a problem with File::Find. Inside wanted it changes directory to the directory where the file is

      ... until you RTFM and find the no_chdir option.

      Alexander

      --
      Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)
        Its worth noting that the no_chdir option slows things down considerably

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://841185]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (11)
As of 2014-07-29 10:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (214 votes), past polls