(Perl) Iterate Through ZIP Entries Using EntryAt and ZipEntry.GetNext

See more Zip Examples

This example demonstrates how to iterate through all entries in a ZIP archive using:

• Zip.EntryAt to obtain the first entry
• ZipEntry.GetNext to advance through the remaining entries

The example prints each ZIP entry's stored filename and whether the entry is a file or directory.

This approach is useful when sequentially processing ZIP entries without repeatedly calling EntryAt by index.

Suppose the ZIP archive contains:

docs/
docs/readme.txt
images/logo.png
hello.txt

The example iterates through each entry in the order stored within the ZIP archive.

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

use chilkat();

$success = 0;

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

# Open an existing ZIP archive.
$success = $zip->OpenZip("c:/temp/example.zip");
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# A ZIP archive may contain zero entries.
if ($zip->get_NumEntries() == 0) {

    print "The ZIP archive is empty." . "\r\n";

    $zip->CloseZip();
    exit;
}

# ------------------------------------------------------------
# Get the first ZIP entry.
# 
# EntryAt(0,entry) initializes the ZipEntry object so that
# it represents the first entry in the ZIP archive.
# 
$entry = chilkat::CkZipEntry->new();

$success = $zip->EntryAt(0,$entry);
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# ------------------------------------------------------------
# Iterate through all ZIP entries.
# 
# GetNext updates the same ZipEntry object so that it
# represents the next entry in the ZIP archive.
# 
while (($success == 1)) {

    if ($entry->get_IsDirectory() == 1) {

        print "[Directory] " . $entry->fileName() . "\r\n";

    }
    else {

        print "[File] " . $entry->fileName() . "\r\n";
    }

    # Advance to the next entry.
    $success = $entry->GetNext();
}

$zip->CloseZip();

print "Done." . "\r\n";