Perl

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

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

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

print "Original entry:" . "\r\n";
print "  FileName: " . $entry->fileName() . "\r\n";
print "  EntryID: " . $entry->get_EntryID() . "\r\n";
print "" . "\r\n";

# Save the EntryID for later use.
$entryId = $entry->get_EntryID();

# Create another ZipEntry object.
$entry2 = chilkat::CkZipEntry->new();

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

print "Entry retrieved by EntryID:" . "\r\n";
print "  FileName: " . $entry2->fileName() . "\r\n";
print "  EntryID: " . $entry2->get_EntryID() . "\r\n";
print "" . "\r\n";

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

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