Parsing with XML::Simple

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks!

I am trying to get the value of a node that has an attribute, can not get it to work, here is a sample code on how I am trying:

#!/usr/bin/perl

use strict;
use warnings;

use XML::Simple;
use Data::Dumper;
use Data::Dump 'pp';

#my $content = $response->decoded_content();

my $content = qq|<?xml version=\'1.0\' encoding=\'UTF-8\'?><soap:Envel
+ope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
 <soap:Header><ais:requestID xmlns:ais="http://com">
  {7f000001-47db2420000001569783cdb88136}
  </ais:requestID>
  </soap:Header>
  <soap:Body>
  <soap:Fault>
  <faultcode>soap:Server</faultcode>
  <faultstring>
    check expression:
  </faultstring>
  <faultactor>CheckTwo</faultactor>
  <detail>
   <longDescription xmlns="http://com">
    Exception occurred
   </longDescription>
<MaxCode xmlns="http://com/Server">-2225</MaxCode>
</detail>
</soap:Fault>
</soap:Body>
</soap:Envelope>|;

#my $parser = new XML::Simple;
my $parser= XML::Simple->new( KeepRoot => 1, KeyAttr => [], ForceArray
+ => [qw( MaxCode )] );

my $result = $data->{'soap:Body'}->{'soap:Fault'}->{'detail'}->{'Error
+Code'};

print $result;

# I neet to print this::: -2225
[download]

Thanks for looking!

Comment on Parsing with XML::Simple Download Code

Replies are listed 'Best First'.
Re: Parsing with XML::Simple by jellisii2 (Hermit) on Aug 23, 2016 at 20:33 UTC
Per this, I'd offer the suggestion of "use something else". I'm a big fan of XML::Twig. May $DEITY bless our fellow brother mirod.	[reply]
Re: Parsing with XML::Simple by Mr. Muskrat (Canon) on Aug 23, 2016 at 18:56 UTC
You said that you want the value -2225 which is in the MaxCode element but you're looking for it in the ErrorCode element.	[reply]
Re^2: Parsing with XML::Simple by Anonymous Monk on Aug 23, 2016 at 19:05 UTC
I just typed the sample code wrong, sorry! #!/usr/bin/perl use strict; use warnings; use XML::Simple; use Data::Dumper; use Data::Dump 'pp'; #my $content = $response->decoded_content(); my $content = qq\|<?xml version=\'1.0\' encoding=\'UTF-8\'?><soap:Envel +ope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"> <soap:Header><ais:requestID xmlns:ais="http://com"> {7f000001-47db2420000001569783cdb88136} </ais:requestID> </soap:Header> <soap:Body> <soap:Fault> <faultcode>soap:Server</faultcode> <faultstring> check expression: </faultstring> <faultactor>CheckTwo</faultactor> <detail> <longDescription xmlns="http://com"> Exception occurred </longDescription> <MaxCode xmlns="http://com/Server">-2225</MaxCode> </detail> </soap:Fault> </soap:Body> </soap:Envelope>\|; #my $parser = new XML::Simple; my $parser= XML::Simple->new( KeepRoot => 1, KeyAttr => [], ForceArray + => [qw( MaxCode )] ); my $data = $parser->XMLin($content); my $result = $data->{'soap:Body'}->{'soap:Fault'}->{'detail'}->{'MaxCo +de'}; [download] Thanks!	[reply] [d/l]
Re^3: Parsing with XML::Simple by Mr. Muskrat (Canon) on Aug 23, 2016 at 19:33 UTC
Okay. I ran this code and noticed that you probably want to start at the top. `my $result = $data->{'soap:Envelope'}{'soap:Body'}{'soap:Fault'}{detail}{MaxCode}; # removed unnecessary punctuation` This won't give you the answer you seek but push you in the right direction. I'll also give you a hint... You told it to treat MaxCode as an array.	[reply] [d/l]
Re^4: Parsing with XML::Simple by Anonymous Monk on Aug 23, 2016 at 19:55 UTC
Re: Parsing with XML::Simple by Anonymous Monk on Aug 23, 2016 at 21:52 UTC
Why not use SOAP::Lite or XML::Compile::SOAP, thats that actually know something about SOAP?	[reply]
Re: Parsing with XML::Simple by Jenda (Abbot) on Aug 25, 2016 at 13:17 UTC
Don't! Please see this post for reasons. Also the number is not in any ErrorCode tag, but in <MaxCode> in namespace http://com/Server ! # if you don't care where in the structure is the tag, this would be s +ufficient: use strict; use warnings; use XML::Rules; my $parser = XML::Rules->new( namespaces => { 'http://schemas.xmlsoap.org/soap/envelope/' => 'soap', 'http://com/Server' => 'srv', 'http://com' => 'com' }, rules => { 'srv:MaxCode' => sub { my ($attrs, $parser) = @_[1,4]; $parser->return_this($attrs->{_content}); } } ); my $content = qq\|<?xml version=\'1.0\' encoding=\'UTF-8\'?><soap:Envel +ope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"> <soap:Header><ais:requestID xmlns:ais="http://com"> {7f000001-47db2420000001569783cdb88136} </ais:requestID> </soap:Header> <soap:Body> <soap:Fault> <faultcode>soap:Server</faultcode> <faultstring> check expression: </faultstring> <faultactor>CheckTwo</faultactor> <detail> <longDescription xmlns="http://com"> Exception occurred </longDescription> <MaxCode xmlns="http://com/Server">-2225</MaxCode> </detail> </soap:Fault> </soap:Body> </soap:Envelope>\|; my $result = $parser->parse($content); print $result; [download] Jenda Enoch was right! Enjoy the last years of Rome.	[reply] [d/l]