使用 XML::LibXML appendTextNode() 按原样附加 CDATA

Question

我使用此代码创建一个具有预期输出的新节点：

<item desc="desc foobar"><![CDATA[qux]]></item>

代码：

open my $fh, "<", $xml_file;
binmode $fh;
my $parser = XML::LibXML->new();
my $doc = $parser->load_xml(IO => $fh);

# create a new node in XML file
my $root = $doc->getDocumentElement();
my $new_element = $doc->createElement("item");
# FIXME
$new_element->appendTextNode(sprintf '<![CDATA[%s]]>', join "\n", @input);
$new_element->setAttribute('desc', $desc);
$root->appendChild($new_element);

close $fh;

open my $out, '>', $xml_file;
binmode $out;
$doc->toFH($out);

close $out;

它可以很好地创建新元素文本，但我想知道如何在没有 XML 实体替换的情况下添加 CDATA：我明白了：

<item desc="dddd">&lt;![CDATA[qux]]>
#                 ^^^^

Answer 1

很明显appendTextNode() 会自动转义文本节点中的问题字符。这是你应该做的：

my $cdata_node = XML::LibXML::CDATASection->new(
    join "\n", @input
);

$new_element->appendChild($cdata_node);

XML::LibXML::CDATASection

 $node = XML::LibXML::CDATASection->new( $content );

构造函数是这个包唯一提供的函数。这是 必需，因为 libxml2 处理不同的文本节点类型 略有不同。

类继承自 XML::LibXML::Node

http://search.cpan.org/dist/XML-LibXML/lib/XML/LibXML/CDATASection.pod

XML::LibXML::Node

$childnode = $node->appendChild( $childnode );

该函数会将 $childnode 添加到 $node 的子节点的末尾...

http://search.cpan.org/~shlomif/XML-LibXML-2.0117/lib/XML/LibXML/Node.pod