CODEWITHSUNDEEP
perlxml-libxml
jonah_w
jonah_w

Reputation: 1032

perl XML::LibXML get direct child text node content

Like in this snippet:

<p>content 1 of p <span>content of span</span> content 2 of p </p>

I would like to only obtain the following: content 1 of p and content 2 of p, not content of span.

Is there a way to do it?

Upvotes: 2

Views: 581

Answers (1)

ikegami
ikegami

Reputation: 386501

Using an XPath:

for my $text_node ($node->findnodes('text()')) {
   say $text_node;
}

Without using an XPath:

for my $child_node ($node->childNodes()) {
   next if $child_node->nodeType != XML_TEXT_NODE;

   say $child_node;
}

Both output the following:

content 1 of p
 content 2 of p

The rest of the program:

use strict;
use warnings;
use feature qw( say );

use XML::LibXML qw( XML_TEXT_NODE );

my $xml = '<p>content 1 of p <span>content of span</span> content 2 of p </p>';

my $doc = XML::LibXML->new->parse_string($xml);
my $node = $doc->documentElement();

Upvotes: 4

Related Questions