Sample code for 30+ languages & platforms
Perl

Move XML Subtree to Another XML Document

Demonstrates using the InsertChildTreeBefore method to move a fragment of XML from one document to another.

Chilkat Perl Downloads

Download Chilkat for Perl
Perl 
use chilkat();

# Source XML is this:

# <?xml version='1.0' encoding='UTF-8'?>
# <soapenv:Envelope xmlns:"soapenv="http://schemas.xmlsoap.org/soap/envelope/">
#               <soapenv:Header/>
#               <soapenv:Body>
#                             <GetCustomerResponse xmlns="http://www.midoco.de/crm" xmlns:tns="http://www.midoco.de/ws">
#                                           <CrmCustomer addresseeLine1="Max Mustermann" addresseeLine2="" changingUser="123456" >
#                                                          <CrmAddress addressId="2225355" addressTypeId="1" checkStatus="O" city="Wien" countryCode="AT" customerId="000071"/>
#                                                          <CrmPerson birthDay="30" birthMonth="8" birthYear="1977" birthday="1977-08-30T00:00:00.000+02:00" birthdayNotProvided="false"/>
#                                           </CrmCustomer>
#                           </GetCustomerResponse>
#               </soapenv:Body>
# </soapenv:Envelope>

# Build the source XML.
$srcXml = chilkat::CkXml->new();
$srcXml->put_Tag("soapenv:Envelope");
$srcXml->AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/");
$srcXml->UpdateChildContent("soapenv:Header","");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse",1,"xmlns","http://www.midoco.de/crm");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse",1,"xmlns:tns","http://www.midoco.de/ws");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",1,"addresseeLine1","Max Mustermann");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",1,"addresseeLine2","");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",1,"changingUser","123456");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"addressId","2225355");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"addressTypeId","1");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"checkStatus","O");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"city","Wien");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"countryCode","AT");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"customerId","000071");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthDay","30");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthMonth","8");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthYear","1977");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthday","1977-08-30T00:00:00.000+02:00");
$srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthdayNotProvided","false");

# Destination XML is this:

# <?xml version="1.0" encoding="utf-8"?>
# <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
#     <SOAP-ENV:Header>
#         <m:Credentials xmlns:m="http://www.midoco.de/system">
#             <m:Login>User</m:Login>
#             <m:Password>Pass</m:Password>
#             <m:OrgUnit>ABC</m:OrgUnit>
#             <m:Locale>de_DE</m:Locale>
#         </m:MidocoCredentials>
#     </SOAP-ENV:Header>
#     <SOAP-ENV:Body>
#         <SaveCustomerRequest>
#         </SaveCustomerRequest>
#     </SOAP-ENV:Body>
# </SOAP-ENV:Envelope>

$destXml = chilkat::CkXml->new();
$destXml->put_Tag("SOAP-ENV:Envelope");
$destXml->AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/");
$destXml->AddAttribute("xmlns:SOAP-ENC","http://schemas.xmlsoap.org/soap/encoding/");
$destXml->AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance");
$destXml->AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema");
$destXml->UpdateAttrAt("SOAP-ENV:Header|m:Credentials",1,"xmlns:m","http://www.midoco.de/system");
$destXml->UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Login","User");
$destXml->UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Password","Pass");
$destXml->UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:OrgUnit","ABC");
$destXml->UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Locale","de_DE");
$destXml->UpdateChildContent("SOAP-ENV:Body|SaveCustomerRequest","");

# We want to move the "CrmCustomer" subtree in the source XML to inside the "SaveCustomerRequest" element in the destination.

# Navigate to CrmCustomer
# crmCust is a Xml
$crmCust = $srcXml->FindChild("soapenv:Body|GetCustomerResponse|CrmCustomer");
if ($srcXml->get_LastMethodSuccess() != 1) {
    print "Failed to find CrmCustomer element." . "\r\n";
    exit;
}

# Navigate to SaveCustomerRequest
# crmSaveCust is a Xml
$crmSaveCust = $destXml->FindChild("SOAP-ENV:Body|SaveCustomerRequest");
if ($destXml->get_LastMethodSuccess() != 1) {
    print "Failed to find SaveCustomerRequest element." . "\r\n";
    exit;
}

# Move CrmCustomer tree to SaveCustomerRequest.
$crmSaveCust->InsertChildTreeBefore(0,$crmCust);

# Look at the resulting destXml.  You can see the CrmCustomer subtree moved to underneath SaveCustomerRequest.
print $destXml->getXml() . "\r\n";

# <?xml version="1.0" encoding="utf-8"?>
# <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
#     <SOAP-ENV:Header>
#         <m:Credentials xmlns:m="http://www.midoco.de/system">
#             <m:Login>User</m:Login>
#             <m:Password>Pass</m:Password>
#             <m:OrgUnit>ABC</m:OrgUnit>
#             <m:Locale>de_DE</m:Locale>
#         </m:Credentials>
#     </SOAP-ENV:Header>
#     <SOAP-ENV:Body>
#         <SaveCustomerRequest>
#             <CrmCustomer addresseeLine1="Max Mustermann" addresseeLine2="" changingUser="123456">
#                 <CrmAddress addressId="2225355" addressTypeId="1" checkStatus="O" city="Wien" countryCode="AT" customerId="000071"/>
#                 <CrmPerson birthDay="30" birthMonth="8" birthYear="1977" birthday="1977-08-30T00:00:00.000+02:00" birthdayNotProvided="false"/>
#             </CrmCustomer>
#         </SaveCustomerRequest>
#     </SOAP-ENV:Body>
# </SOAP-ENV:Envelope>

# Look at the resulting srcXml.  The CrmCustomer subtree was removed.
print $srcXml->getXml() . "\r\n";

# <?xml version="1.0" encoding="utf-8"?>
# <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
#     <soapenv:Header/>
#     <soapenv:Body>
#         <GetCustomerResponse xmlns="http://www.midoco.de/crm" xmlns:tns="http://www.midoco.de/ws"/>
#     </soapenv:Body>
# </soapenv:Envelope>