(Perl) Unzip

See more Zip Examples

Unzip a zip archive, creating the subfolders as needed.

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

use chilkat();

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

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

$success = $zip->OpenZip("qa_data/zips/sample.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Unzip to c:/temp/testDir
# If c:/temp/testDir does not yet exist, it will be auto-created.
$numFilesUnzipped = $zip->Unzip("c:/temp/testDir");
if ($numFilesUnzipped < 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# If, for example, the zip contained these files:

# aaa/pigs.json
# bbb/base64Cert.txt
# bbb/sub1/brasil_cert.pem
# bbb/sub2/penguins.gif
# bbb/sub2/starfish.jpg
# hamlet.xml
# hello.pdf

# then after unzipping, the following files will be created:

# c:/temp/testDir/aaa/pigs.json
# c:/temp/testDir/bbb/base64Cert.txt
# c:/temp/testDir/bbb/sub1/brasil_cert.pem
# c:/temp/testDir/bbb/sub2/penguins.gif
# c:/temp/testDir/bbb/sub2/starfish.jpg
# c:/temp/testDir/hamlet.xml
# c:/temp/testDir/hello.pdf

$zip->CloseZip();