(Perl) XML Add Child Tree

Demonstrates the Xml.AddChildTree method.

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

use chilkat();



# Build the following XML:

# <?xml version="1.0" encoding="utf-8"?>
# <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
#     <soap12:Body>
#         <cteDadosMsg xmlns="http://www.portalfiscal.inf.br/cte/wsdl/CTeStatusServicoV4">
# 	   </cteDadosMsg>
#     </soap12:Body>
# </soap12:Envelope>

$xml = chilkat::CkXml->new();
$xml->put_Tag("soap12:Envelope");
$xml->AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance");
$xml->AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema");
$xml->AddAttribute("xmlns:soap12","http://www.w3.org/2003/05/soap-envelope");
$xml->UpdateAttrAt("soap12:Body|cteDadosMsg",1,"xmlns","http://www.portalfiscal.inf.br/cte/wsdl/CTeStatusServicoV4");

# We want to add the following XML as a sub-tree under the "cteDadosMsg" element.

# <consStatServCTe versao="4.00" xmlns="http://www.portalfiscal.inf.br/cte">
#     <tpAmb>2</tpAmb>
#     <cUF>43</cUF>
#     <xServ>STATUS</xServ>
# </consStatServCTe>

# Build the XML to be added as a child tree.

$xml2 = chilkat::CkXml->new();
$xml2->put_Tag("consStatServCTe");
$xml2->AddAttribute("versao","4.00");
$xml2->AddAttribute("xmlns","http://www.portalfiscal.inf.br/cte");
$xml2->UpdateChildContent("tpAmb","2");
$xml2->UpdateChildContent("cUF","43");
$xml2->UpdateChildContent("xServ","STATUS");

# Add the child tree at the desired location:
# Temporarily point to the location where we wish to add the child tree.
$success = $xml->FindChild2("soap12:Body|cteDadosMsg");
if ($success == 0) {
    # Restore current location to the root.
    $xml->GetRoot2();
    exit;
}

$success = $xml->AddChildTree($xml2);
# Restore the current location to the root.
$xml->GetRoot2();

# You can see now that the XML contain the child tree:

print $xml->getXml() . "\r\n";

# <?xml version="1.0" encoding="utf-8"?>
# <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
#     <soap12:Body>
#         <cteDadosMsg xmlns="http://www.portalfiscal.inf.br/cte/wsdl/CTeStatusServicoV4">
#             <consStatServCTe versao="4.00" xmlns="http://www.portalfiscal.inf.br/cte">
#                 <tpAmb>2</tpAmb>
#                 <cUF>43</cUF>
#                 <xServ>STATUS</xServ>
#             </consStatServCTe>
#         </cteDadosMsg>
#     </soap12:Body>
# </soap12:Envelope>