Perl

HasChildWithTag using a Tag Path

Demonstrates calling HasChildWithTag 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 $hasChicago = $xml->HasChildWithTag('north_america|united_states|illinois|chicago');
print 'hasChicago = ', ($hasChicago ? 1 : 0), "\n";

my $hasNaperville = $xml->HasChildWithTag('north_america|united_states|illinois|naperville');
print 'hasNaperville = ', ($hasNaperville ? 1 : 0), "\n";

my $hasIllinois = $xml->HasChildWithTag('north_america|united_states|illinois');
print 'hasIllinois = ', ($hasIllinois ? 1 : 0), "\n";