(Perl) Load P7B and Iterate Certificates

Demonstrates how to load a .p7b containing one or more certificates access each of them.

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

use chilkat();

# Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program
# by calling UnlockBundle.  It requires a Bundle unlock code.
$chilkatGlob = chilkat::CkGlobal->new();
$success = $chilkatGlob->UnlockBundle("Anything for 30-day trial.");
if ($success != 1) {
    print $chilkatGlob->lastErrorText() . "\r\n";
    exit;
}

# The Chilkat PEM class was introduced in v9.5.0.49.  
# It requires the bundle to be unlocked, as shown above.
$pem = chilkat::CkPem->new();

# Load the .p7b from a file.
$success = $pem->LoadP7bFile("../myCertFiles/myP7b.p7b");
if ($success != 1) {
    print $pem->lastErrorText() . "\r\n";
    exit;
}

# Note: If the app already has the p7b loaded in memory, the LoadP7b method
# may be called instead.  (see the online reference documentation)

# Iterate over the certificates.
$numCerts = $pem->get_NumCerts();
$i = 0;

while ($i < $numCerts) {

    # cert is a Cert
    $cert = $pem->GetCert($i);
    print "Certificate " . $i . " : " . $cert->subjectDN() . "\r\n";

    $i = $i + 1;
}