Perl Requires Chilkat v9.5.0.64+

ExtractChildByName using a Tag Path

Demonstrates calling ExtractChildByName with a tag path. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

$xml->Tag('world');

$xml->NewChild2('north_america|united_states|california|san_francisco', 'Silicon Valley');
$xml->NewChild2('north_america|united_states|california|san_diego', 'Birthplace of California');
$xml->NewChild2('north_america|united_states|illinois|chicago', 'Windy City');

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

# Produces the following XML
#
#     <?xml version="1.0" encoding="utf-8" ?>
#     <world>
#         <north_america>
#             <united_states>
#                 <california>
#                     <san_francisco>Silicon Valley</san_francisco>
#                     <san_diego>Birthplace of California</san_diego>
#                 </california>
#                 <illinois>
#                     <chicago>Windy City</chicago>
#                 </illinois>
#             </united_states>
#         </north_america>
#     </world>
#

my $xCalif = $xml->ExtractChildByName('north_america|united_states|california', '', '');

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

# xCalif contains:

#     <?xml version="1.0" encoding="utf-8" ?>
#     <california>
#         <san_francisco>Silicon Valley</san_francisco>
#         <san_diego>Birthplace of California</san_diego>
#     </california>

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

# xml now contains:

#     <?xml version="1.0" encoding="utf-8" ?>
#     <world>
#         <north_america>
#             <united_states>
#                 <illinois>
#                     <chicago>Windy City</chicago>
#                 </illinois>
#             </united_states>
#         </north_america>
#     </world>