Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: XML Array/Hash Issue

by Preceptor (Chaplain)
on Nov 20, 2013 at 21:37 UTC ( #1063615=note: print w/ replies, xml ) Need Help??

in reply to XML Array/Hash Issue

Your problem is that you're getting a scalar in one mode, and an array in the other - and so your coercion is failing.

I would take a slightly different approach, and use XML::Twig, which is my current favorite XML parser.

use strict; use warnings; use XML::Twig; my $XML = "<errors> <error> <desc>First Error</desc> </error> <error> <desc>Second Error</desc> </error> </errors>"; sub print_error { my ( $twig, $error ) = @_; print "NEW: ",$error -> first_child_text('desc'),"\n"; } my $parser = XML::Twig -> new ( 'twig_handlers' => { 'error' => \&prin +t_error } ); $parser -> parse ( $XML );

You could also find the 'children' method within XML::Twig to be handy if you wanted to do it a different way.

sub process_all_errors { my ( $twig, $errors_list ) = @_; foreach my $error ( $errors_list -> children ( "error" ) ) { print "NEW: ",$error -> first_child_text('desc'),"\n"; } } my $other_parser = XML::Twig -> new ( 'twig_handlers' => { 'errors' => + \&process_all_errors } ); $other_parser -> parse ( $XML );

The former invokes the subroutine each time the parser hits an 'errors' element. (So twice). The latter invokes the sub just once (for each 'error') but then cycles through the 'errors' within it. (Which is optimal depends on what you're trying to do exactly, which is why I've given both examples).

Comment on Re: XML Array/Hash Issue
Select or Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (14)
As of 2014-08-28 13:16 GMT
Find Nodes?
    Voting Booth?

    The best computer themed movie is:

    Results (260 votes), past polls