Replace a File within a Zip

Demonstrates how to replace a file within a .zip

Download Chilkat Perl Module

use chilkat;

$zip = new chilkat::CkZip();

#  Any string unlocks the component for the 1st 30-days.
$success = $zip->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

$success = $zip->OpenZip("a.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

#  Locate the entry:
$entry = $zip->FirstMatchingEntry("*HelloWorld123.txt");

if (!($entry eq null )) {

    $zip->DeleteEntry($entry);

    $saveExtraPath = 0;
    $success = $zip->AppendOneFileOrDir("c:/temp/HelloWorld123.txt",$saveExtraPath);
    if ($success != 1) {
        print $zip->lastErrorText() . "\n";
        exit;
    }

    $success = $zip->WriteZipAndClose();
    if ($success != 1) {
        print $zip->lastErrorText() . "\n";
        exit;
    }

    print "Entry replaced and .zip re-written." . "\n";

}
else {
    print "Entry not found." . "\r\n";
}