(Perl) Modify Name of File Stored within Zip when Creating a .zip

Demonstrates how to create a zip where the filename within the .zip is different than the filename that was added from the filesystem.

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$success = 0;

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

$zip = chilkat::CkZip->new();

# Intialize the zip object by calling NewZip.
$success = $zip->NewZip("myZip.zip");

# Add a reference to a file on disk to the zip object.
# (When appending files to a zip, the files are not actually
# read into memory.  References to the file(s) are added.
# When WriteZip is called, the referenced files are streamed in
# and compressed to the .zip.)
$saveExtraPath = 0;
$success = $zip->AddFile("/temp/a/hamlet.xml",$saveExtraPath);
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# The zip object references a single file.
# Retrieve the entry object...
$entry = chilkat::CkZipEntry->new();
$zip->EntryAt(0,$entry);

# Set the entry's filename to anything you want:
$entry->put_FileName("somethingElse.xml");

# Note: Internally, the zip component retains the name of
# the file referenced.  The current setting of the zip entry's
# FileName property is stored in the .zip when writing.

# The zip written here will contain somethingElse.xml
$success = $zip->WriteZipAndClose();
if ($success != 1) {
    print $zip->lastErrorText() . "\r\n";
}
else {
    print "Zip created!" . "\r\n";
}