Rename a filename within the .zip before zipping.

Demonstrates how to rename a file within a .zip prior to writing it.

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->NewZip("test.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

#  Append a directory tree.  The AppendFiles does
#  not read the file contents or append them to the zip
#  object in memory.  It simply appends references
#  to the files so that when WriteZip (or WriteZipAndClose,
#  or WriteExe, etc.) is called, the files are compressed
#  and encrypted.
$recurse = 1;
$zip->AppendFiles("c:/temp/a/*",$recurse);

$entry = $zip->GetEntryByName("Setup.exe");
if ($entry eq null ) {
    print "Failed to find entry in .zip" . "\n";
    exit;
}

#  Change the filename of this entry.
#  When the .zip is written, the "Setup.exe" is streamed
#  in from the filesystem and compressed into the .zip,
#  and named as "install.exe"
$entry->put_FileName("install.exe");

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

print "Zip Created!" . "\n";