(Perl) Get Certificate Subject Part by Name or OID

Demonstrates the GetSubjectPart method where a name or OID can be passed.

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

use chilkat();

$cert = chilkat::CkCert->new();

$success = $cert->LoadByCommonName("myCert");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# This example demonstrates getting the SERIALNUMBER part of the subject,
# if one such part exists in the cert's subject.
# Not too many certicates include the serial number in the Subject.
# (Chilean issued certificates for SII is one such case where the SERIALNUMBER part exists within the Subject.)
$serialNum = $cert->getSubjectPart("SERIALNUMBER");
if ($cert->get_LastMethodSuccess() == 0) {
    print "No SERIALNUMBER part exists." . "\r\n";
    exit;
}

print $serialNum . "\r\n";

# We could also get the part by the OID.
# See https://oidref.com/2.5.4.5 for a list of OID's in the 2.5.4.* range..
# The OID for SERIALNUMBER is "2.5.4.5"
$serialNum = $cert->getSubjectPart("2.5.4.5");
if ($cert->get_LastMethodSuccess() == 0) {
    print "No SERIALNUMBER part exists." . "\r\n";
    exit;
}

print $serialNum . "\r\n";