Perl

Iterate over Direct Child Nodes by Index

See more XML Examples

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>

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# The sample input XML is available at http://www.chilkatsoft.com/data/get_child.xml
my $success = $xml->LoadXmlFile('get_child.xml');
if (!$success) {
    print $xml->LastErrorText, "\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->NumChildren, "\n";

# Iterate over the direct children by index. The first child
# is at index 0.
for my $i (0 .. $xml->NumChildren - 1) {
    #  access the tag and content directly by index:
    print $i, ': ', $xml->GetChildTagByIndex($i), ' : ', $xml->GetChildContentByIndex($i), "\n";
}

print "-----\n";

# Do the same as the above loop, but get the child node
# and access the Tag and Content properties:
for my $i (0 .. $xml->NumChildren - 1) {
    $child = $xml->GetChild($i);
    print $i, ': ', $child->Tag, ' : ', $child->Content, "\n";
}

print "-----\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 my $i (0 .. $xml->NumChildren - 1) {
    # Navigate to the Nth child.
    $success = $xml->GetChild2($i);
    print $i, ': ', $xml->Tag, ' : ', $xml->Content, "\n";
    # Navigate back up to the parent:
    $success = $xml->GetParent2();
}

print "-----\n";

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