(Perl) Replace/Update a FIle in a .zip

Demonstrates how to replace/update a file from a .zip. Note: This requires the entire .zip to be rewritten.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This requires the Chilkat Zip API to have been previously unlocked.
# See Unlock Chilkat Zip for sample code.

# First prepare a .zip and write it..
$zip = chilkat::CkZip->new();

$zip->NewZip("qa_output/abc.zip");

# Add some files..
# entry is a ZipEntry
$entry = $zip->AppendString("a.txt","aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa");

# entry is a ZipEntry
$entry = $zip->AppendString("b.txt","bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb");

# entry is a ZipEntry
$entry = $zip->AppendString("c.txt","cccccccccccccccccccccccccccccccccccc");

# Write to qa_output/abc.zip
# This .zip contains three files: a.txt, b.txt, and c.txt
$success = $zip->WriteZipAndClose();

# -------------------------------------------------------------------
# Open abc.zip, replace the content of the "b.txt" entry with something else, and re-write.
$zip2 = chilkat::CkZip->new();
$zip2->OpenZip("qa_output/abc.zip");

# entry is a ZipEntry
$entry = $zip2->GetEntryByName("b.txt");
$entry->ReplaceString("This is the new content.  bbbbbbbbbbbbbbbbbbbbbb","utf-8");

# Write the modified .zip back to "abc.zip"
$success = $zip2->WriteZipAndClose();

print "success." . "\r\n";