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
Chilkat2 Perl 
use strict;
use warnings;
use Chilkat2;

# 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.
my $srcXml = Chilkat2::Xml->new;
$srcXml->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>

my $destXml = Chilkat2::Xml->new;
$destXml->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
my $crmCust = $srcXml->FindChild('soapenv:Body|GetCustomerResponse|CrmCustomer');
if (!$srcXml->LastMethodSuccess) {
    print "Failed to find CrmCustomer element.\n";
    exit;
}

# Navigate to SaveCustomerRequest
my $crmSaveCust = $destXml->FindChild('SOAP-ENV:Body|SaveCustomerRequest');
if (!$destXml->LastMethodSuccess) {
    print "Failed to find SaveCustomerRequest element.\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(), "\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(), "\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>