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。 According to the documentation，你应该“总是冲洗树枝，而不是元素。”

变化cd_catalogue到

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

得到预期的行为。