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.

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $zip = Chilkat2::Zip->new;

# Open an existing ZIP archive.
my $success = $zip->OpenZip('c:/temp/sample.zip');
if (!$success) {
    print $zip->LastErrorText, "\n";
    exit;
}

# ------------------------------------------------------------
# Find the first ZIP entry matching the wildcard pattern:
#
#     docs/*
#
# Matching is performed against the full stored ZIP path.
#
my $entry = Chilkat2::ZipEntry->new;

$success = $zip->EntryMatching('docs/*', $entry);
if (!$success) {
    print "No matching entries found.\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) {
    if ($entry->IsDirectory) {
        print '[Directory] ', $entry->FileName, "\n";
    } else {
        print '[File] ', $entry->FileName, "\n";
    }

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

$zip->CloseZip();

print "Done.\n";