Re: How to Parse XML output?

There are many CPAN modules which can help you. For your first foray into simple XML parsing, I'd recommend XML::Simple. Despite being "simple", it still tends to do what I need most of the time.

use 5.014;
use XML::Simple;

my $xmls = XMLin($xml_string);
say $_->{AttrValue} for grep { $_->{AttrName} eq 'ref_num' }
                        @{$xmls->{Attributes}->{Attribute}};
[download]

$xmls is just an ordinary HASH ref; it's usually instructive to print it out with Data::Dump, Data::Dumper or similar:

use Data::Dump;

dd $xmls;
[download]

Comment on Re: How to Parse XML output? Select or Download Code

Replies are listed 'Best First'.
Re^2: How to Parse XML output? by powermonk (Initiate) on Mar 13, 2013 at 16:59 UTC
I tired it, but its not working. Below is what I am doing. my $xml_string= $result->result; //Store return value of webservices function. my $tkt= $_->{AttrValue} for grep { $_->{AttrName} eq 'ref_num' } @{$xmls->{Attributes}->{Attribute}}; print $tkt Not able to capture value.	[reply]
Re^3: How to Parse XML output? by powermonk (Initiate) on Mar 13, 2013 at 17:12 UTC
Finally Got it. Was able to extract it using XML::LibXML by passing the string. Thanks all for your valuable help.	[reply]