Re: Parsing XML file for more than 1 child element with attributes

You could do it this way (XML::Simple creates a hash of hashes because the nodes have an attribute called "name", I guess):

foreach $node ( keys( %{ $tree->{report}->{node} } ) ) {
  print "$node:values: $tree->{report}->{node}->{$node}->{values}\n";
}
[download]

But you'd be better off adding KeyAttr to your new() call:

my $simple = XML::Simple -> new (KeyAttr => 'node');
[download]

Because that way you will get an array of nodes

$tree = {
  'report' => {
    'ip' => '1.1.1.1',
    'id' => '0',
    'node' => [
      {
        'mid' => 'machine1',
        'time' => '110, 120, 130, 140, 150, 160',
        'name' => 'Winxp',
        'values' => '1, 2, 3, 4, 5, 6'
      },
      {
        'mid' => 'machine2',
        'time' => '110, 120, 130, 140, 150, 160',
        'name' => 'Win2003',
        'values' => '1, 2, 3, 4, 5, 6'
      }
    ]
  }
};
[download]

Hint -- use Data::Dumper to look at the tree.

Nobody says perl looks like line-noise any more
kids today don't know what line-noise IS ...

Comment on Re: Parsing XML file for more than 1 child element with attributes Select or Download Code

Replies are listed 'Best First'.
Re^2: Parsing XML file for more than 1 child element with attributes by Anonymous Monk on Feb 06, 2008 at 12:25 UTC
Thanks. Using Data Dumper i was able to see the tree structure and this is the structure that i was looking for. I tried the for loop that you have provided "foreach $node ( keys( %{ $tree->{report}->{node} } ) ) { print "$node:values: $tree->{report}->{node}->{$node}->{values}\n"; }" But here what i observe is that the keys are obtained as mid, time name and values. I am trying to accomplish something like " if the mid is 'machine1' and name is 'Winxp' then i would like to get the 'time' and 'values'. " Similary i will loop across many mid and names. Since i already know the mid and name, it is easy. But the problem is how to construct code for this task ?	[reply]
Re^3: Parsing XML file for more than 1 child element with attributes by Cody Pendant (Prior) on Feb 06, 2008 at 21:43 UTC
Well, I think the reason nobody's helping you is, you haven't shown any of your own code yet. If you understand how `foreach $node ( keys( %{ $tree->{report}->{node} } ) ) { print "$node:VALUES: $tree->{report}->{node}->{$node}->{values}\n"; }` [download] works, then you should be able to just add an "if" to my code to get what you want. If you don't, or if you don't even know how to do "if", in Perl, you'd better say so. Nobody says perl looks like line-noise any more kids today don't know what line-noise IS ...	[reply] [d/l]


Think about Loose Coupling
	PerlMonks