Re: XML::XPath and preserving CDATA fields

This is a design decision. I wanted to base the module as closely as possible on the XPath specification as possible (as this makes implementation easier - and believe me it was no easy task writing that module). If you look at the section on text nodes in the XPath spec, you'll see how CDATA sections are just treated exactly as non-CDATA section nodes. In order to be able to merge adjacent text nodes, the concept of CDATA nodes had to go.

I know that probably doesn't give you the answer you wanted. If you *really* need CDATA information in the output stream, I suggest you look at something with a more feature rich API like XML::LibXML, SAX, or XML::Parser.

Comment on Re: XML::XPath and preserving CDATA fields

Replies are listed 'Best First'.

Re: Re: XML::XPath and preserving CDATA fields
by IOrdy (Friar) on May 31, 2002 at 04:57 UTC

#!/usr/bin/perl -w
use strict;

use XML::LibXML;

undef $/;

my $XML=<DATA>;

my $parser = XML::LibXML->new();
my $xmlp = $parser->parse_string($XML);

print $xmlp->toString; #before munge

foreach my $node ($xmlp->findnodes('/foo/bar/text')) { 
    my $data = your_munge_function($node->findvalue('text()'));
    $node->findnodes('text()')->get_node(1)->setData($data);
}

print $xmlp->toString; #after munge

# functions
sub your_munge_function
  { return "munged $_[0]"; }

# data
__DATA__
<foo>
<bar>
<text id="text1"><![CDATA[La dee da de da.<br>Foo bar baz]]></text>
<text id="text2">normal text</text>
</bar>
</foo>
[download]

[reply]
[d/l]


Perl-Sensitive Sunglasses
	PerlMonks