How does Perl XML :: Simple ignore HTML embedded in XML?

Question

I have an XML file that I extract from the Internet and understand. One element in XML is the "content" value, which contains HTML. I am using XML :: Simple :: XMLin to parse the file:

$xml= eval { $data->XMLin($xmldata, forcearray => 1, suppressempty=> +'') };

When I use Data::Dumpera hash dump, I find myself SimpleXMLparsing HTML in a hash tree:

'content' => {
      'div' => [
                 {
                   'xmlns' => 'http://www.w3.org/1999/xhtml',
                   'p' => [
                       {
                         'a' => [
                             {
                                'href' => 'http://miamiherald.typepad.com/.a/6a00d83451b26169e20133ec6f4491970b-pi',
                               'style' => 'FLOAT: left',
                               'img' => [
                                   etc .....

This is not what I want. I want to just grab the content inside this post. How should I do it?

Answer 1

, XML:: Simple , XML. XML::Simple , . , , , kludgey XML::Simple.

Answer 2

#!/usr/bin/perl

use strict; use warnings;

use XML::LibXML::Reader;
my $reader = XML::LibXML::Reader->new(IO => \*DATA)
    or die "Cannot read XML\n";

if ( $reader->nextElement('content') ) {
    print $reader->readInnerXml;
}

__DATA__
<content>
<div xmlns="http://www.w3.org/1999/xhtml">
<p><a href="http://miamiherald.typepad.com/" style="float:left"><img
src="tada"/></a></p>
</div>
</content>

:

<div xmlns="http://www.w3.org/1999/xhtml">
<p><a href="http://miamiherald.typepad.com/" style="float:left"><img src="tada"/
></a></p>
</div>

Answer 3

HTML XML ( , CDATA), XML:: Simple, , .

HTML, XML::Simple XMLout().

Answer 4

HTML CDATA , .

Before processing with XML :: Simple, find the contents of the tag <my_html>, supposedly suspicious HTML, and pass it through the HTML object encoder ("<" => "& lt", etc.). like HTML :: Entities. Then insert the encoded content in place of the original content of the tag <my_html>.

This is VERY hacked, VERY easy to do wrong if you don’t know 100% what you are doing with regular expressions and should not be done.

Having said that, he will solve your problem.