in reply to Parsing CData nodes with LibXML

Don't forget about the examples and tests :)http://search.cpan.org/dist/XML-LibXML/MANIFEST 
#!/usr/bin/perl --

use strict;
use warnings;

use XML::LibXML;

Main(@ARGV);
exit(0);

sub Main {
  my $doc = XML::LibXML->load_xml( string => <<'__XML__');
<?xml version="1.0" encoding="UTF-8"?>
<root>
  <child>
    <![CDATA[
      Here's a bunch of fun text that I want to get a substring out of
+.
    ]]>
  </child>
</root>
__XML__

  for my $nod ( $doc->findnodes('/root/child/text()') ) {
    print "$nod\n", $nod->string_value, "\n-----\n";
  }

} ## end sub Main

__END__
XML::LibXML::Text=SCALAR(0xa12c14)


-----
XML::LibXML::CDATASection=SCALAR(0xa983c4)

      Here's a bunch of fun text that I want to get a substring out of
+.

-----
XML::LibXML::Text=SCALAR(0x9d75d4)


-----

[download]

Replies are listed 'Best First'.
Re^2: Parsing CData nodes with LibXML
by silvertip257 (Initiate) on Apr 07, 2010 at 03:43 UTC

    Isn't this funny...I'm responding to myself and solving my problem. I hope that this information will show up on search engines to save others the time that this parser behavior cost me.

    I have found out that the actual CData string that I want is stored in the second child node of my parent child element.

    Here's a modified snippet from what I found.

    my @ch = $root->getElementsByTagName("child");

my $type = $ch[0]->nodeType;
my $val = $ch[0]->firstChild->nodeValue;
my $type2 = ($ch[0]->childNodes)[1]->nodeType;
my $val2 = ($ch[0]->childNodes)[1]->nodeValue;
print $type."\n";
print $val."\n";
print $type2."\n";
print $val2."\n";
print "val Length = ".length($val)."\n";

    [download]
[reply]
[d/l]
      I thought that was obvious from my example :D and besides, everyone knows significant white-space is significant :)
[reply]

In Section Seekers of Perl Wisdom