Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re^3: XML::Simple: list all element attributes

by frozenwithjoy (Priest)
on Apr 08, 2015 at 07:50 UTC ( #1122776=note: print w/replies, xml ) Need Help??


in reply to Re^2: XML::Simple: list all element attributes
in thread XML::Simple: list all element attributes

What you are looking for is: if ( $node->{node} )

However, is a little recursion OK?

print_nodes($data); sub print_nodes { my $data = shift; foreach my $node ( @{ $data->{node} } ) { print $node->{name} . ": " . $node->{text} . "\n"; if ( $node->{node} ) { print_nodes($node); } } }

This should work regardless of how deep the nodes go; however, it doesn't indent:

1st node: Text of 1st node 2nd node: Text of 2nd node subnode A: Text of subnode A subnode B: Text of subnode B 3rd node: Text of 3rd node

EDITED TO ADD INDENTATION:

print_nodes( $data, 0 ); sub print_nodes { my ( $data, $depth ) = @_; my $tab_width = 4; foreach my $node ( @{ $data->{node} } ) { my $indent = " " x $depth x $tab_width; print $indent . $node->{name} . ": " . $node->{text} . "\n"; if ( $node->{node} ) { print_nodes( $node, $depth + 1 ); } } }
1st node: Text of 1st node 2nd node: Text of 2nd node subnode A: Text of subnode A subnode B: Text of subnode B 3rd node: Text of 3rd node

Replies are listed 'Best First'.
Re^4: XML::Simple: list all element attributes
by element22 (Initiate) on Apr 08, 2015 at 10:41 UTC
    Everything's working now. Thank you very much for your help, especially adding the indents in recursion.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1122776]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2020-10-01 14:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (14 votes). Check out past polls.

    Notices?