Perl Requires Chilkat v11.0.0+

Find a ZIP Entry by EntryID Using EntryById

See more Zip Examples

This example demonstrates how to use the EntryById method to retrieve a ZIP entry using its unique EntryID.

Each ZipEntry object has an EntryID property that uniquely identifies the entry within the currently open ZIP object.

This is useful when:

• An application stores EntryID values for later use
• ZIP entries need to be retrieved without searching by filename
• Multiple entries may have similar names or paths

The example:

• Opens a ZIP archive
• Retrieves an entry using EntryAt
• Saves the entry's EntryID
• Uses EntryById to retrieve the same entry later

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;
}

# Retrieve the first entry in the ZIP archive.
my $entry = Chilkat2::ZipEntry->new;

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

print "Original entry:\n";
print '  FileName: ', $entry->FileName, "\n";
print '  EntryID: ', $entry->EntryID, "\n";
print "\n";

# Save the EntryID for later use.
my $entryId = $entry->EntryID;

# Create another ZipEntry object.
my $entry2 = Chilkat2::ZipEntry->new;

# Retrieve the same entry using EntryById.
$success = $zip->EntryById($entryId, $entry2);
if (!$success) {
    print $zip->LastErrorText, "\n";
    exit;
}

print "Entry retrieved by EntryID:\n";
print '  FileName: ', $entry2->FileName, "\n";
print '  EntryID: ', $entry2->EntryID, "\n";
print "\n";

# The filenames and EntryID values should match.
$zip->CloseZip();

print "Done.\n";