XML::LibXML::Reader 返回没有 cdata 标记的值

Question

我正在使用 XML::LibXML::Reader 读取 xml 文件

my $reader = XML::LibXML::Reader->new(IO => $fh, load_ext_dtd => 0) or die qq(cannot read content: $!);

while ($reader->nextElement( 'item' )) {

    my $copy = $reader->copyCurrentNode(1);

    my $title = $copy->findvalue( 'title' );  

}

然而，xml中的标题是在一个CDATA标签内，所以如果我看它，它就像

<![CDATA[Some title here]]>

我自然可以使用一些正则表达式来摆脱额外的标签，但我想知道是否有一种更简洁的方式让 XML::LibXML::reader 返回没有 cdata 标签的标题？

我一直在查看文档，但找不到任何关于这样做的方法的参考。

Answer 1

解析器的工作是为您解码 XML，因此findvalue 已经返回您想要的内容。

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

use XML::LibXML::Reader qw( );

my $xml = '<root><item><title><![CDATA[Some title here]]></title></item></root>';

my $reader = XML::LibXML::Reader->new(string => $xml, load_ext_dtd => 0);
while ($reader->nextElement( 'item' )) {
    my $copy = $reader->copyCurrentNode(1);
    my $title = $copy->findvalue( 'title' );
    say $title;       # Some title here
}