(Perl) HasChildWithTag using a Tag Path

Demonstrates calling HasChildWithTag with a tag path.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$xml = chilkat::CkXml->new();

$xml->put_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() . "\r\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>
# 

$hasChicago = $xml->HasChildWithTag("north_america|united_states|illinois|chicago");
print "hasChicago = " . $hasChicago . "\r\n";

$hasNaperville = $xml->HasChildWithTag("north_america|united_states|illinois|naperville");
print "hasNaperville = " . $hasNaperville . "\r\n";

$hasIllinois = $xml->HasChildWithTag("north_america|united_states|illinois");
print "hasIllinois = " . $hasIllinois . "\r\n";