How can I extract a CDATA value from the structure created by XML::Simple?

Question

I use a Perl script with the module XML:Simple to parse an XML feed:

my $xml=XMLin($resp->content);
my $xml2 = $xml->{params}{param}{value}{array}{data}{value}{struct}{member};


print $xml2->{prod_id}{value}{int}; #works fine

print $xml2->{product_text}{value}{string}; #returns a hash reference (hash(0x...)

What have I to modify to get the text:

<div class="text"> <div class="text_products">sdfsdf</div> </div>

instead of a hash reference?

This is the XML data:

  <?xml version="1.0" encoding="UTF-8" ?> 
- <methodResponse>
- <params>
- <param>
- <value>
- <array>
- <data>
- <value>
- <struct>
- <member>
  <name>product_text</name> 
- <value>
  <string><![CDATA[ <div class="text"> <div class="text_products">sdfsdf</div> </div> ]]></string> 
  </value>
  </member>
- <member>
  <name>prod_id</name> 
- <value>
  <int>1290</int> 
  </value>
  </member>
- <member>.......

Answer 1

Your code appears to work for me. I copied your XML and your perl code and it prints:

1290 <div class="text"> <div class="text_products">sdfsdf</div> </div> 

Using Data::Dumper will show the data structure that exists. For example, when I run your sample code, an extract of the relevant section is:

'value' => {
  'string' => ' <div class="text"> <div class="text_products">sdfsdf</div> </div> '
}

The only reason I can think that you might be getting something different is if there's another element called product_text at the same level.

EDIT: If you are sometimes getting empty elements and they are coming out as a hashref, you can set the SuppressEmpty option to undef when you call XMLin. See the docs for more details ( link : http://search.cpan.org/~grantm/XML-Simple-2.18/lib/XML/Simple.pm#SuppressEmpty_=>1|_''_|undef#_in+out_-_handy )