http://qs321.pair.com?node_id=1218875


in reply to get text from node - XML::LibXML

Here is an SSCCE:

use strict;
use warnings;

use XML::LibXML;
use Test::More tests => 1;

my $in = '<seg><foo mid="0" mtype="seg"><g id="1">Need to export this 
+text</g></foo></seg>';
my $want = '<g id="1">Need to export this text</g>';
my $xml = XML::LibXML->load_xml (string => $in);

my $have = $xml->getElementsByTagName ('g')->shift->toString;
is ($have, $want);

[download]

Replies are listed 'Best First'.
Re^2: get text from node - XML::LibXML
by corfuitl (Sexton) on Jul 20, 2018 at 11:47 UTC

    Hi,

    Thank you for your help. I gave it a try and it works when it has tags. However, there are cases where the extracted text doesn't contain tags (i.e. <seg><foo mid="0" mtype="seg">Need to export this text</foo></seg>.

    i used this one my $mrktext = $mrk->getElementsByTagName ('*')->shift->toString;

    .
[reply]
[d/l]
[select]

      What is your full code? What output do you get? What do you expect?

      Unless you tell us that, we can't figure out where you're going wrong.

      Here's the code for an example I created:

      use strict;

my $str = q{<seg><foo mid="0" mtype="seg"><g id="1">Need to export thi
+s text</g></foo></seg>};
my $xml = XML::LibXML->load_xml(string => $str);

print $xml->getElementsByTagName("g")->shift->toString, "\n";

      [download]

      The output is:

      <g id="1">Need to export this text</g>

      [download]

      Which is exactly what I'd expect it to be.

      What is your full code? What output do you get? What do you expect?

      toby döt ink
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom