为什么 XML::Twig 将提取的字符串输出两次？

Question

为什么我的字符串在输出中出现两次？

#!/usr/bin/perl
use warnings;
use strict;

use XML::Twig;


my $string = '<cd_catalogue><title>Hello, World!</title></cd_catalogue>';

my $t= XML::Twig->new(  twig_handlers   => { cd_catalogue => \&cd_catalogue, },
            pretty_print => 'indented', 
);

$t->parse( $string );


sub cd_catalogue {
    my( $t, $cd_catalogue ) = @_;
    $cd_catalogue->flush;
}


# Output:
#<cd_catalogue>
#  <title>Hello, World!</title>
#</cd_catalogue>
#<cd_catalogue>
#  <title>Hello, World!</title>
#</cd_catalogue>

Answer 1

将您的子程序更改为使用 print 和 purge 而不是 flush 可以解决问题：

sub cd_catalogue {
    my( $t, $cd_catalogue ) = @_;
    $cd_catalogue->print;
    $cd_catalogue->purge;
}

flush 由于以下原因而变得混乱您的示例很简单，因为 cd_catalogue 是根节点。如果您将数据更改为如下所示：

my $string = '
    <cds>
        <cd_catalogue><title>Hello, World!</title></cd_catalogue>
    </cds>';

或者如果您更改了 twig_handler 以查找 title：

twig_handlers    => { title => \&cd_catalogue }

那么您会发现 $cd_catalogue->flush 现在按预期工作与您的$string。

/I3az/

Answer 2

您的程序错误地使用了 XML::Twig。 根据文档，您应该“始终冲洗树枝，而不是一个元素。”

将 cd_catalogue 更改为以

sub cd_catalogue {
    my( $t, $cd_catalogue ) = @_;
    $t->flush;
}

获得预期的行为。