(Perl) Load P7B and List Certificates

Demonstrates how to load a .p7b containing certificates and accesses each individual certificate.

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

use chilkat();

# Unlock the Chilkat API.
# 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;
}

$pem = chilkat::CkPem->new();

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

$numCerts = $pem->get_NumCerts();
if ($numCerts == 0) {
    print (("Error: Expected the .p7b to contain certificates.")) . "\r\n";
    exit;
}

# Access each certificate and show the DN (Distinguished Name)
for ($i = 1; $i <= $numCerts; $i++) {
    # cert is a Cert
    $cert = $pem->GetCert($i - 1);
    print $i . ": " . $cert->subjectDN() . "\r\n";

}