Re: XML::Simple: Loop through childnodes?

Does anyone know what I would need to do to loop through each item under inbox?

Sure. Determine what $d looks like and then walk that data structure.

use Data::Dump::Streamer;
my $xml = XML::Simple->new();
my $d = $xml->XMLin("sample.xml",ForceArray => 1, KeepRoot => 1);
Dump $d;
[download]

Gives

$HASH1 = { 
  inbox => [ 
    { 
      item => [
        {
          description => [ 'Bar' ],
          title       => [ 'Foo' ]
        },
        {
          description => [ 'Foobar' ],
          title       => [ 'Baz' ]
        }
      ] 
    } 
  ] 
};
[download]

Now, for that sample XML it seems to have lots of redundant hashes and arrays if what you care about are the items. So, maybe don't use the extra options:

my $d = $xml->XMLin("sample.xml");
[download]

Gives:

$HASH1 = { 
  item => [
    {
      description => 'Bar',
      title       => 'Foo'
    },
    {
      description => 'Foobar',
      title       => 'Baz'
    }
  ] 
};
[download]

So with that, $d->{item} would appear to be an AOH. Loop through it like this:

for my $item ( @{ $d->{item} } ) {
  print "$item->{title}\n";          # for example
}
[download]

-xdg

Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

Comment on Re: XML::Simple: Loop through childnodes? Select or Download Code

Replies are listed 'Best First'.

Re^2: XML::Simple: Loop through childnodes?
by Jenda (Abbot) on Feb 17, 2007 at 19:45 UTC

This is a bit problematic since if there ever was XML that'd contain only one <item> tag the structure would look different. With recent enough XML::Simple you can specify what tags to force to arrays$xml->XMLin("sample.xml",ForceArray => ['item']).

In case the XML starts to get bigger, it may be better to start using something different. XML::Twig or ... everyone guessed by now ... XML::Rules ;-)

use XML::Rules;

my $parser = XML::Rules->new(
 rules => [
  'description,title' => 'content',
  'item' => sub {
    print "$_[1]->{title}: $_[1]->{description}\n"
    return;
  },
  'inbox' => '',
 ],
);

$parser->parse('sample.xml');
[download]

Jenda
Support Denmark!
Defend the free world!

[reply]
[d/l]
[select]