Perl

Change a Filename before Unzipping

See more Zip Examples

How to open a zip and modify the filename of one or more files within the zip before unzipping. Perl

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();

$success = $zip->OpenZip("test.zip");
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

$entry = chilkat::CkZipEntry->new();

$success = $zip->EntryOf("hamlet.xml",$entry);
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

$entry->put_FileName("hamlet2.xml");

$success = $zip->EntryOf("helloWorld.pl",$entry);
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

$entry->put_FileName("hw.pl");

# Now unzip to the "test" subdirectory, under our current
# working directory:
$numFilesUnzipped = $zip->Unzip("test");
if ($numFilesUnzipped < 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# The filenames within the .zip are unchanged, but it unzipped
# test/hw.pl and test/hamlet2.xm