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.

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Open an existing ZIP archive.
my $zip = Chilkat2::Zip->new;

my $success = $zip->OpenZip('example.zip');
if (!$success) {
    print $zip->LastErrorText, "\n";
    exit;
}

# Get the total number of entries in the ZIP archive.
my $numEntries = $zip->NumEntries;

print 'Number of ZIP entries = ', $numEntries, "\n";

# Create a ZipEntry object that will be reused
# for each entry retrieved by EntryAt.
my $entry = Chilkat2::ZipEntry->new;

# Iterate over all ZIP entries.
my $i = 0;
while ($i < $numEntries) {
    # Retrieve the entry at index i.
    $success = $zip->EntryAt($i, $entry);
    if (!$success) {
        print $zip->LastErrorText, "\n";
        exit;
    }

    print 'Entry ', $i, "\n";
    print '  FileName: ', $entry->FileName, "\n";
    print '  Uncompressed Length: ', $entry->UncompressedLength, "\n";
    print '  Compressed Length: ', $entry->CompressedLength, "\n";
    print "\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.\n";