(Perl) Handling Namespaces in XML Tags

See more XML Examples

Demonstrates new features added in Chilkat v9.5.0.77 for helping with namespace prefixed tags.

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

use chilkat();

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

$xml = chilkat::CkXml->new();
$xml->put_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.
# xmlBody is a Xml
$xmlBody = $xml->FindChild("*:Body");
if ($xml->get_LastMethodSuccess() != 1) {
    print "Body child not found." . "\r\n";
    exit;
}

# Get the full tag w/ namespace prefix:
# Output is "soapenv:Body"
print $xmlBody->tag() . "\r\n";

# Get the namespace prefix:
# Output is "soapenv"
print $xmlBody->tagNsPrefix() . "\r\n";

# Get the unprefixed tag:
# Output is "Body"
print $xmlBody->tagUnprefixed() . "\r\n";

# Check to see if the unprefixed tag equals "Body"
$isBodyTag = $xmlBody->TagUnpEquals("Body");
print "isBodyTag = " . $isBodyTag . "\r\n";

# Check to see if the namespace prefix equals "soapenv";
$isSoapenv = $xmlBody->TagNsEquals("soapenv");
print "isSoapenv = " . $isSoapenv . "\r\n";

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

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