Perl

List Files in a .zip

See more Zip Examples

How to list files within a .zip 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("a.zip");
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# Get the number of files and directories in the .zip
$n = $zip->get_NumEntries();

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

$i = 0;

while ($i < $n) {
    $zip->EntryAt($i,$entry);
    if ($entry->get_IsDirectory() == 0) {
        # (the filename may include a path)
        print $entry->fileName() . "\r\n";
    }

    $i = $i + 1;
}