(Perl) Handling Namespaces in XML Tags

See more XML Examples

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

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";