Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re^5: Archive::Zip - what am I missing?

by regexes (Hermit)
on Apr 11, 2008 at 07:29 UTC ( [id://679630]=note: print w/replies, xml ) Need Help??


in reply to Re^4: Archive::Zip - what am I missing?
in thread Archive::Zip - what am I missing?

Thanks for the reply!

The first example... to make newimage1.jpeg become branch/stick/image1.jpeg works correctly.

The second example, i.e. to remove branch/stick/image1.jpeg and add newimage1.jpeg under branch/stick did not work. It removes the old image according to removeMember but it does not add newimage1.jpeg to the archive.(using addFile)

If I modify the addFile line just to see if it will pack anything.. (I took out the directory path)
my $newmember = $zipFile->addFile( $newimage1, $newimage1);
It does not add the image to the archive directory either.

As mentioned by an anonymous monk... I posted above (Re^3: Archive::Zip - what am I missing?), that if I do not use
my $newmember = $zipFile->addFile( $newimage1, "branch/stick/$newimage +1");
but instead
my $oldimage1 = 'branch/stick/image1.jpeg'; my $newimage1 = Archive::Zip::Member->newFromFile( 'newimage1.jpeg' ); my $oldmember = $zipFile->replaceMember( $oldimage1, $newimage1 );
it packs newimage1.jpeg into the archive but not into the correct directory.

I also tried...
my $oldmember = $zipFile->replaceMember( $oldimage1, "branch/stick/$ne +wimage1" );
but it did not work either.

So to summarize.. it appears that the code below removes the original image (image1.jpeg) but never adds the new image (newimage1.jpeg) at all. Either with or without the archive directory name included. My understanding of the internals of the module is rather low but is this the excpected behaviour? :-)
my $oldimage1 = 'branch/stick/image1.jpeg'; my $newimage1 = 'newimage1.jpeg'; my $oldmember = $zipFile->removeMember( $oldimage1 ); my $newmember = $zipFile->addFile( $newimage1, "branch/stick/$newimage +1");
my $oldimage1 = 'branch/stick/image1.jpeg'; my $newimage1 = Archive::Zip::Member->newFromFile( 'newimage1.jpeg' ); my $oldmember = $zipFile->removeMember( $oldimage1 ); my $newmember = $zipFile->addFile( $newimage1, "branch/stick/$newimage +1");
regexes

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (3)
As of 2024-04-24 00:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found