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->updateMember( $oldimage1, $newimage1 ); my $stat = $zipFile->overwrite();
#!/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();
In reply to Re^4: Archive::Zip - what am I missing?
by nega
in thread Archive::Zip - what am I missing?
by regexes
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |