Perl Requires Chilkat v9.5.0.77+

Handling Namespaces in XML Tags

See more XML Examples

Demonstrates features for helping with namespace prefixed tags. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# First create some XML using namespace prefixed tags.

# Create this XML.
# Use this online tool to generate the code from sample XML:
# Generate Code to Create XML

# <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
#    xmlns:scm="http://www.springcm.com/atlas/webservices/v201308/scm/">
#    <soapenv:Header/>
#    <soapenv:Body>
#       <scm:AccountGetCurrent>
#          <scm:token>123</scm:token>
#       </scm:AccountGetCurrent>
#    </soapenv:Body>
# </soapenv:Envelope>

my $xml = Chilkat2::Xml->new;
$xml->Tag('soapenv:Envelope');
$xml->AddAttribute('xmlns:soapenv', 'http://schemas.xmlsoap.org/soap/envelope/');
$xml->AddAttribute('xmlns:scm', 'http://www.springcm.com/atlas/webservices/v201308/scm/');
$xml->UpdateChildContent('soapenv:Header', '');
$xml->UpdateChildContent('soapenv:Body|scm:AccountGetCurrent|scm:token', '123');

# Go to the "Body" tag, regardless of namespace prefix.
my $xmlBody = $xml->FindChild('*:Body');
if (!$xml->LastMethodSuccess) {
    print "Body child not found.\n";
    exit;
}

# Get the full tag w/ namespace prefix:
# Output is "soapenv:Body"
print $xmlBody->Tag, "\n";

# Get the namespace prefix:
# Output is "soapenv"
print $xmlBody->TagNsPrefix, "\n";

# Get the unprefixed tag:
# Output is "Body"
print $xmlBody->TagUnprefixed, "\n";

# Check to see if the unprefixed tag equals "Body"
my $isBodyTag = $xmlBody->TagUnpEquals('Body');
print 'isBodyTag = ', ($isBodyTag ? 1 : 0), "\n";

# Check to see if the namespace prefix equals "soapenv";
my $isSoapenv = $xmlBody->TagNsEquals('soapenv');
print 'isSoapenv = ', ($isSoapenv ? 1 : 0), "\n";

# Change just the namespace prefix of the tag
$xmlBody->TagNsPrefix('se');
# The tag has changed from "soapenv:Body" to "se:Body"
print $xmlBody->Tag, "\n";

# Change the unprefixed part of the tag.
$xmlBody->TagUnprefixed('Bodie');
# The tag has changed from "se:Body" to "se:Bodie"
print $xmlBody->Tag, "\n";