Perl

Iterate Through Matching ZIP Entries Using EntryMatching and ZipEntry.GetNextMatch

See more Zip Examples

This example demonstrates how to iterate through ZIP entries matching a wildcard pattern using:

• Zip.EntryMatching to obtain the first matching entry
• ZipEntry.GetNextMatch to advance to subsequent matching entries

The wildcard character * matches zero or more characters. Matching is performed against the full stored ZIP entry path.

The example searches for all entries beneath the docs/ directory.

Suppose the ZIP archive contains:

docs/
docs/readme.txt
docs/manual.pdf
docs/sub1/notes.txt
images/logo.png
hello.txt

The wildcard pattern:

docs/*

Matches:

docs/
docs/readme.txt
docs/manual.pdf
docs/sub1/notes.txt

Note that ZIP archives may optionally contain separate directory entries. Therefore, the first matching entry may be the directory entry docs/ rather than a file entry.

Perl

use chilkat();

$success = 0;

$zip = chilkat::CkZip->new();

# Open an existing ZIP archive.
$success = $zip->OpenZip("c:/temp/sample.zip");
if ($success == 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# ------------------------------------------------------------
# Find the first ZIP entry matching the wildcard pattern:
# 
#     docs/*
# 
# Matching is performed against the full stored ZIP path.
# 
$entry = chilkat::CkZipEntry->new();

$success = $zip->EntryMatching("docs/*",$entry);
if ($success == 0) {
    print "No matching entries found." . "\r\n";
    $zip->CloseZip();
    exit;
}

# ------------------------------------------------------------
# Iterate through all matching entries.
# 
# GetNextMatch updates the same ZipEntry object so that
# it represents the next matching entry.
# 
while (($success == 1)) {
    if ($entry->get_IsDirectory() == 1) {
        print "[Directory] " . $entry->fileName() . "\r\n";
    }
    else {
        print "[File] " . $entry->fileName() . "\r\n";
    }

    # Advance to the next matching entry.
    $success = $entry->GetNextMatch("docs/*");
}

$zip->CloseZip();

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