Perl Requires Chilkat v9.5.0.64+

XML NewChild2 using a Tag Path

See more XML Examples

Demonstrates the XML NewChild2 method using a tag path. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

$xml->Tag('aaa');

# A single tag can be passed to NewChild2, and this behaves as it always has:
$xml->NewChild2('penguin', 'flightless bird');
$xml->NewChild2('mammal', '');
print $xml->GetXml(), "\n";

# The output:

#     <?xml version="1.0" encoding="utf-8" ?>
#     <aaa>
#         <penguin>flightless bird</penguin>
#         <mammal />
#     </aaa>
#
# A tag path can be used.
# It will cause nodes to be automatically created as needed.
$xml->NewChild2('red|green|blue', 'sky');
$xml->NewChild2('mammal|rodent|squirrel', 'bushy tail');
print $xml->GetXml(), "\n";

# The output:

#     <?xml version="1.0" encoding="utf-8" ?>
#     <aaa>
#         <penguin>flightless bird</penguin>
#         <mammal>
#             <rodent>
#                 <squirrel>bushy tail</squirrel>
#             </rodent>
#         </mammal>
#         <red>
#             <green>
#                 <blue>sky</blue>
#             </green>
#         </red>
#     </aaa>
#