my $newmember = $zipFile->addFile( $newimage1, $newimage1); #### my $newmember = $zipFile->addFile( $newimage1, "branch/stick/$newimage1"); #### my $oldimage1 = 'branch/stick/image1.jpeg'; my $newimage1 = Archive::Zip::Member->newFromFile( 'newimage1.jpeg' ); my $oldmember = $zipFile->replaceMember( $oldimage1, $newimage1 ); #### my $oldmember = $zipFile->replaceMember( $oldimage1, "branch/stick/$newimage1" ); #### my $oldimage1 = 'branch/stick/image1.jpeg'; my $newimage1 = 'newimage1.jpeg'; my $oldmember = $zipFile->removeMember( $oldimage1 ); my $newmember = $zipFile->addFile( $newimage1, "branch/stick/$newimage1"); #### 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/$newimage1");