Perl

Iterate over Direct Children with a Specific Tag

See more XML Examples

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>

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/fruit.xml
my $success = $xml->LoadXmlFile('fruit.xml');
if (!$success) {
    print $xml->LastErrorText, "\n";
    exit;
}

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

if ($numWithTag > 0) {
    for my $i (0 .. $numWithTag - 1) {
        $child = $xml->GetNthChildWithTag('fruit', $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 GetNthChildWithTag2 to
    # update the object's reference instead.
    for my $i (0 .. $numWithTag - 1) {
        # Navigate to the Nth child.
        $success = $xml->GetNthChildWithTag2('fruit', $i);
        print $i, ': ', $xml->Tag, ' : ', $xml->Content, "\n";
        # Navigate back up to the parent:
        $success = $xml->GetParent2();
    }

    print "-----\n";
}