(Perl) Load PEM and List Certificates

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

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;
}

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

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

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

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

}