(Perl) Iterate over Direct Child Nodes by Index

Demonstrates some ways to iterate over direct child nodes by index.

The input XML, available at http://www.chilkatsoft.com/data/get_child.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/get_child.xml
$success = $xml->LoadXmlFile("get_child.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}

#  The NumChildren property contains the number of direct
#  child nodes.  Note: The child nodes under "xyz" are NOT
#  direct children of "root".  Therefore, the "root" node has
#  7 direct children
print "NumChildren = " . $xml->get_NumChildren() . "\r\n";

#  Iterate over the direct children by index. The first child
#  is at index 0.

for ($i = 0; $i <= $xml->get_NumChildren() - 1; $i++) {
    #   access the tag and content directly by index:
    print $i . ": " . $xml->getChildTagByIndex($i)
         . " : " . $xml->getChildContentByIndex($i) . "\r\n";

}

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

#  Do the same as the above loop, but get the child node
#  and access the Tag and Content properties:
for ($i = 0; $i <= $xml->get_NumChildren() - 1; $i++) {
    # child is a CkXml
    $child = $xml->GetChild($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 GetChild2 to
#  update the object's reference instead.
for ($i = 0; $i <= $xml->get_NumChildren() - 1; $i++) {
    #  Navigate to the Nth child.
    $xml->GetChild2($i);
    print $i . ": " . $xml->tag() . " : "
         . $xml->content() . "\r\n";
    #  Navigate back up to the parent:
    $xml->GetParent2();
}

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

#  Notice that the Content of the "xyz" node is empty.  This is correct.
#  The "xyz" node has no Content, but 2 direct children.