#!/usr/bin/perl

use strict;
use Archive::Zip qw(:ERROR_CODES);

my $zipFile = Archive::Zip->new();
my $status = $zipFile->read( '/home/clueless/blabla.zip' );

my $oldimage1 = 'branch/stick/image1.jpeg';
my $newimage1 = Archive::Zip::Member->newFromFile( 'newimage1.jpeg' );
my $oldmember = $zipFile->replaceMember( $oldimage1, $newimage1 );

my $stat = $zipFile->overwrite();
[download]

If you want if you want to make "newimage1.jpeg" become "branch/stick/image1.jpeg" within the archive, then do this:

#!/usr/bin/perl

use strict;
use Archive::Zip qw(:ERROR_CODES);

my $zipFile = Archive::Zip->new();
my $status = $zipFile->read( '/home/clueless/blabla.zip' );

my $oldimage1 = 'branch/stick/image1.jpeg';
my $newimage1 = 'newimage1.jpeg';
my $oldmember = $zipFile->updateMember( $oldimage1, $newimage1 );

my $stat = $zipFile->overwrite();
[download]

If you want to remove "branch/stick/image1.jpeg" and add "newimage1.jpeg" under "branch/stick/" do this:

#!/usr/bin/perl

use strict;
use Archive::Zip qw(:ERROR_CODES);

my $zipFile = Archive::Zip->new();
my $status = $zipFile->read( '/home/clueless/blabla.zip' );

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 $stat = $zipFile->overwrite();
[download]

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);
[download]

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");
[download]

but instead

my $oldimage1 = 'branch/stick/image1.jpeg';
my $newimage1 = Archive::Zip::Member->newFromFile( 'newimage1.jpeg' );
my $oldmember = $zipFile->replaceMember( $oldimage1, $newimage1 );
[download]

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" );
[download]

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");
[download]

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");
[download]

regexes