(Perl) Unzip all Files to a Single Directory (Ignoring Subdirectories in Zip)

See more Zip Examples

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

use chilkat();

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

$outDir = "c:/temp/testUnzipDir";

# Make sure our output directory exists.
$fac = chilkat::CkFileAccess->new();
$success = $fac->DirEnsureExists($outDir);
if ($success == 0) {
    print $fac->lastErrorText() . "\r\n";
    exit;
}

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

# In this example, the xml_files.zip contains some files in the subdirectories "dir1" and also "dir2/dir3".

# a1.xml
# b1.xml
# c1.xml
# dir1/a2.xml
# dir1/c2.xml
# dir2/dir3/c3.xml

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

# Unzip all files into the directory c:/temp/testUnzipDir
$numUnzipped = $zip->UnzipInto($outDir);
if ($numUnzipped < 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

print "Num unzipped = " . $numUnzipped . "\r\n";

# After unzipping via UnzipInto, we have this:

# c:\temp\testUnzipDir\a1.xml
# c:\temp\testUnzipDir\b1.xml
# c:\temp\testUnzipDir\c1.xml
# c:\temp\testUnzipDir\a2.xml
# c:\temp\testUnzipDir\c2.xml
# c:\temp\testUnzipDir\c3.xml

$zip->CloseZip();

print "Success." . "\r\n";