(Perl) Iterate over Matching Filenames

Iterates over files within a .zip that match a pattern. In this case, the pattern is "*.pem". This example will open a .zip containing files of type .txt, .cer, .pem, and possibly others, and will iterate over only the .pem files.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

# Open a .zip containing PEM files, among other things..
$success = $zip->OpenZip("qa_data/certs/thawte-roots.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# entry is a ZipEntry
$entry = $zip->FirstMatchingEntry("*.pem");
if ($zip->get_LastMethodSuccess() != 1) {
    print "No PEM entries found." . "\r\n";
    exit;
}

$bContinue = 1;
while (($bContinue == 1)) {

    print "Entry: " . $entry->fileName() . "\r\n";

    # Get the uncommpressed contents of the entry:
    $pemStr = $entry->unzipToString(0,"utf-8");
    print $pemStr . "\r\n";

    # nextEntry is a ZipEntry
    $nextEntry = $entry->NextMatchingEntry("*.pem");
    $bContinue = $entry->get_LastMethodSuccess();

    # entry is a ZipEntry
    $entry = $nextEntry;
}