Perl

Load PEM and List Certificates

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

use chilkat();

$success = 0;

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

$success = 0;

$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";

}