(Perl) Iterate over Direct Children with a Specific Tag

Demonstrates how to iterate over direct children having a specific tag.

The input XML, available at http://www.chilkatsoft.com/data/fruit.xml, is this:

<root>
    <fruit color="red">apple</fruit>
    <fruit color="green">pear</fruit>
    <veg color="orange">carrot</veg>
    <meat animal="cow">beef</meat>
    <xyz>
        <fruit color="blue">blueberry</fruit>
        <veg color="green">broccoli</veg>
    </xyz>
    <fruit color="purple">grape</fruit>
    <cheese color="yellow">cheddar</cheese>
</root>

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$xml = new chilkat::CkXml();

#  The sample input XML is available at http://www.chilkatsoft.com/data/fruit.xml
$success = $xml->LoadXmlFile("fruit.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}

#   Get the number of direct children having the tag "fruit"
$numWithTag = $xml->NumChildrenHavingTag("fruit");

if ($numWithTag > 0) {

    for ($i = 0; $i <= $numWithTag - 1; $i++) {
        # child is a CkXml
        $child = $xml->GetNthChildWithTag("fruit",$i);
        print $i . ": " . $child->tag()
             . " : " . $child->content() . "\r\n";

    }

    print "-----" . "\r\n";

    #  Do the same as the above loop, but instead of creating
    #  a new object instance for each child, call GetNthChildWithTag2 to
    #  update the object's reference instead.
    for ($i = 0; $i <= $numWithTag - 1; $i++) {
        #  Navigate to the Nth child.
        $xml->GetNthChildWithTag2("fruit",$i);
        print $i . ": " . $xml->tag()
             . " : " . $xml->content() . "\r\n";
        #  Navigate back up to the parent:
        $xml->GetParent2();
    }

    print "-----" . "\r\n";

}