Perl

Examine the Contents of a .p7m by Converting to XML

Examines the contents of a .p7m signature by converting it to XML. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $asn = Chilkat2::Asn->new;

my $success = $asn->LoadBinaryFile('qa_data/p7m/a.p7m');
if (!$success) {
    print $asn->LastErrorText, "\n";
    exit;
}

# Convert to XML.
my $strXml = $asn->AsnToXml();

# The XML returned by AsnToXml will be compact.
# To get the XML indented in human-readable form, load
# into the Chilkat XML object and emit..
my $xml = Chilkat2::Xml->new;
$xml->LoadXml($strXml);

print $xml->GetXml(), "\n";
$xml->SaveXml('qa_output/a.xml');

# -----------------------------------------------------------------------------------------
# Also see Chilkat's online tool to examine a .p7m and generate code to duplicate the .p7m
# -----------------------------------------------------------------------------------------