(Perl) List Files in Zip using FirstEntry/NextEntry

See more Zip Examples

Demonstrates how to iterate over the files and directories in a zip archive using the FirstEntry and NextEntry functions.

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/xml_files.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# entry is a ZipEntry
$entry = $zip->FirstEntry();
if ($zip->get_LastMethodSuccess() == 0) {
    print "This zip archive is empty." . "\r\n";
    exit;
}

$finished = 0;
while ($finished == 0) {

    if ($entry->get_IsDirectory() == 0) {
        print $entry->fileName() . "\r\n";
    }
    else {
        print "(directory) " . $entry->fileName() . "\r\n";
    }

    # next is a ZipEntry
    $next = $entry->NextEntry();
    if ($entry->get_LastMethodSuccess() == 0) {
        $finished = 1;
    }

    # entry is a ZipEntry
    $entry = $next;
}

# Sample output showing both file and directory entries:

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