Perl Requires Chilkat v11.0.0+

Iterate Over ZIP Entries Using EntryAt

This example demonstrates how to use the EntryAt method to iterate over all entries contained within a ZIP archive.

The EntryAt method retrieves a ZipEntry object for a given zero-based index.

This is useful for:

• Enumerating all entries in a ZIP archive
• Inspecting filenames, sizes, and timestamps
• Searching or filtering ZIP contents

Suppose the ZIP archive contains:

docs/readme.txt
images/logo.png
data/config.json

The example loops through all ZIP entries and prints information about each entry.

Perl

use chilkat();

$success = 0;

#  Open an existing ZIP archive.
$zip = chilkat::CkZip->new();

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

#  Get the total number of entries in the ZIP archive.
$numEntries = $zip->get_NumEntries();

print "Number of ZIP entries = " . $numEntries . "\r\n";

#  Create a ZipEntry object that will be reused
#  for each entry retrieved by EntryAt.
$entry = chilkat::CkZipEntry->new();

#  Iterate over all ZIP entries.
$i = 0;
while ($i < $numEntries) {

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

    print "Entry " . $i . "\r\n";
    print "  FileName: " . $entry->fileName() . "\r\n";
    print "  Uncompressed Length: " . $entry->get_UncompressedLength() . "\r\n";
    print "  Compressed Length: " . $entry->get_CompressedLength() . "\r\n";
    print "" . "\r\n";

    $i = $i + 1;
}

#  Sample output:
#  
#  Entry 0
#    FileName: docs/readme.txt
#    Uncompressed Length: 1204
#    Compressed Length: 512
#  
#  Entry 1
#    FileName: images/logo.png
#    Uncompressed Length: 84211
#    Compressed Length: 84102
#  

$zip->CloseZip();

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