Perl

Load P7B and Iterate Certificates

See more PEM Examples

Demonstrates how to load a .p7b containing one or more certificates access each of them. 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;

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