Perl

XML Inclusive Canonicalization

See more XML Digital Signatures Examples

Demonstrates how to convert XML to the Inclusive XML Canonicalization form as specified in http://www.w3.org/TR/xml-c14n/ 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.

# The XML digital signature verification class provides utility methods for
# XML canonicalization.  This example demonstrates how to do inclusive XML canonicalization.

my $http = Chilkat2::Http->new;
my $sbXml = Chilkat2::StringBuilder->new;
my $canon = Chilkat2::XmlDSig->new;

# Use inclusive XML canonicalization.
my $canonVersion = 'C14N';
my $withComments = 0;

my $url = 'https://www.chilkatsoft.com/exampleData/c14n/test7.xml';
my $success = $http->QuickGetSb($url, $sbXml);

# This is the input XML:
# The XML comment is referring to when exclusive XML canonicalization is applied.  With inclusive canonicalization, the namespace nodes
# are kept, as we'll see below..

# <doc>
# <!-- A namespace node N is ignored if the nearest ancestor element of the node's parent element that is in the node-set has a namespace node in the node-set with the same local name and value as N. -->
#     <animal xmlns:aa="https://www.animal.com/">
#         <reptile xmlns:bb="https://www.reptile.com/">
#               <lizard xmlns="" type="african fat tailed" abc="xyz" xmlns:aa="https://www.animal.com/" />
#               <snake type="poisonous rattler" xmlns:bb="https://www.reptile.com/" >
#               </snake>
#           </reptile>
#       </animal>
# </doc>

my $xmlInclCanon = $canon->CanonicalizeXml($sbXml->GetAsString(), $canonVersion, $withComments);
print $xmlInclCanon, "\n";

# The C14N (inclusive) canonicalization is:

# <doc>
#
#     <animal xmlns:aa="https://www.animal.com/">
#         <reptile xmlns:bb="https://www.reptile.com/">
#               <lizard abc="xyz" type="african fat tailed"></lizard>
#               <snake type="poisonous rattler">
#               </snake>
#           </reptile>
#       </animal>
# </doc>

# To see the difference, let's do exclusive canonicalization..
$canonVersion = 'EXCL_C14N';

my $xmlExclCanon = $canon->CanonicalizeXml($sbXml->GetAsString(), $canonVersion, $withComments);
print $xmlExclCanon, "\n";

# // The C14N (exclusive) canonicalization is:
#
# <doc>
#
#     <animal>
#         <reptile>
#               <lizard abc="xyz" type="african fat tailed"></lizard>
#               <snake type="poisonous rattler">
#               </snake>
#           </reptile>
#       </animal>
# </doc>