CODEWITHSUNDEEP
xmlperllibxml2
Aravindhan
Aravindhan

Reputation: 3626

Getting full XML string from PERL LibXML Parser

I am having following XML which I required to process

<table>
<col1>check1</col1>
<col2>check2</col2>
<col3>check3</col3>
<content>
    <data>gt1</data>
    <data>check_gt1</data>
</content>
</table>

I want to get "<content><data>gt1</data><data>check_gt1</data></content>" from the parser.

My parsing code is as follows,

my $parser = XML::LibXML->new();
my $respDom = $parser->parse_string($xmldata);
print "content is ".$respDom->getDocumentElement->findnodes("//content");

The above code results in the textContent inside the nodes.How can I get the data I mentioned above ?

Upvotes: 3

Views: 2116

Answers (1)

simbabque
simbabque

Reputation: 54371

The XML::LibXML::Node objects have a method toString. That's what you need. I found it with a quick search of the XML::LibXML documentation.

use strict;
use warnings;
use XML::LibXML;

my $xmldata = <<'XML';
<table>
<col1>check1</col1>
<col2>check2</col2>
<col3>check3</col3>
<content>
    <data>gt1</data>
    <data>check_gt1</data>
</content>
</table>
XML

my $parser = XML::LibXML->new();
my $respDom = $parser->parse_string($xmldata);
print "content is "
  . $respDom->getDocumentElement->findnodes("//content")->[0]->toString;

This will print:

content is <content>
    <data>gt1</data>
    <data>check_gt1</data>
</content>

In general, I always search for either to_string, as_string, stringify or simply string if I need something like that and am not sure how that works in a specific module. It's almost always one of those.

Update

To only get the inside XML of the <content> element, you have to grab its child nodes and do toString for each of them. The map whole thing needs to be called in list context, or it will throw an error. Note how I changed the . to a , in the print statement.

print "content is "
  , $respDom->getDocumentElement->findnodes("//content")->[0]->childNodes->map(sub {$_->toString});

Upvotes: 5

Related Questions