Perl

XML NewChildAfter

Demonstrates the Chilkat.NewChildAfter method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $success = 0;

my $xml = Chilkat2::Xml->new;

$xml->Tag('order');
$xml->NewChild2('order_billing_info|price_list', 'Listino Italia');
$xml->NewChild2('order_billing_info|price_list_id', '1');
$xml->NewChild2('order_billing_info|first_name', 'Francesco');

print $xml->GetXml(), "\n";

# We now have the following XML:

# <?xml version="1.0" encoding="utf-8"?>
# <order>
#     <order_billing_info>
#         <price_list>Listino Italia</price_list>
#         <price_list_id>1</price_list_id>
#         <first_name>Francesco</first_name>
#     </order_billing_info>
# </order>

# Get the "order_billing_info" element
my $orderBillingInfo = $xml->FindChild('order_billing_info');

# Call NewChildAfter to add an XML element <customer_id> after <price_list_id>
# First get the index of the element price_list_id
my $index = $orderBillingInfo->TagIndex('price_list_id');
print 'index = ', $index, "\n";

# Add the "customer_id" element just after specified index.
my $xCustId = $orderBillingInfo->NewChildAfter($index, 'customer_id', '1234');

print $xml->GetXml(), "\n";

# We now have:

# <?xml version="1.0" encoding="utf-8"?>
# <order>
#     <order_billing_info>
#         <price_list>Listino Italia</price_list>
#         <price_list_id>1</price_list_id>
#         <customer_id>1234</customer_id>
#         <first_name>Francesco</first_name>
#     </order_billing_info>
# </order>