Perl

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;

$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";