xml - 如何使用 Perl 使用 TWIG 提取 CDATA 内容

Question

我是 Perl 的新手，所以我没有使用它的经验，我必须使用 TWIG 和 Perl 从以下 xml 文件中提取 CDATA 中的内容:

    <?xml version='1.0'  encoding="utf-8"?>
    <text>
    <![CDATA[
    1. Democracia ukata Estado de Derecho sutinchata kamachinaka ch’amanchañataki

    ...
    ]]>
    </text>

抱歉，如果这个问题在某处重复出现。 提前致谢。

Answer 1

使用 twig_handlers 使用 #CDATA 作为 xpath 表达式进行过滤。

script.pl的内容:

#!/usr/bin/env perl

use warnings;
use strict;
use XML::Twig;

my $twig = XML::Twig->new( 
    twig_handlers => {
        '#CDATA' => sub { print $_->text },
    },  
)->parsefile( shift );

像这样运行它:

perl script.pl xmlfile

产生:

1. Democracia ukata Estado de Derecho sutinchata kamachinaka ch’amanchañataki

...