Perl

Unzip a .zip Archive

See more Zip Examples

Demonstrates how to open a .zip archive and unzip. The Unzip method extracts the files and directories from a .zip archive and recreates the directory tree rooted at the directory path passed to Unzip. 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("my_files.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Returns the number of files and directories unzipped.
# Unzips to /my_files, re-creating the directory tree
# from the .zip.
$unzipCount = $zip->Unzip("/my_files");
if ($unzipCount < 0) {
    print $zip->lastErrorText() . "\r\n";
}
else {
    print "Success!" . "\r\n";
}