2

下面的程序给了我无法解释的奇怪输出：

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

my $xml = 
q{<block>
    <foo>bar baz</foo>
</block>};

my $twig = XML::Twig->new(
        TwigHandlers => {foo => \&foo, block => \&block},
    );

print "after parse: " . $twig->parse($xml)->sprint;


sub foo {
    my ( $twig, $foo ) = @_;

    my $text = $foo->sprint("don't print outside element");
    my $newSummary = XML::Twig::Elt->parse( '<p><i>' . $text . '</i></p>' );
    $newSummary->paste( 'before', $foo);
    my $parent = $foo->parent;
    # $foo->delete;
    print "foo: " . $parent->sprint . "\n\n";
}

sub block {
    my ($twig, $block) = @_;
    print "block: " . $block->sprint . "\n\n";
}

它打印以下内容：

foo: <block><p><i>bar baz</i></p><foo>bar baz</foo></block>

block: <block><p><i>bar baz</i></p><foo>bar baz</foo></block>

after parse: <block><foo>bar baz</foo></block>

所以我正在修改foo处理程序内部的树枝，更改会一直存在以便block处理程序看到它，但是当处理完成后，更改就会消失。这里发生了什么？我怎样才能让我的零钱在树枝的整个生命周期都保持不变？

4

2 回答 2

4

它看起来像一个错误，或者至少是范围界定的问题：解析完成时，新元素似乎被垃圾收集了。

避免这种情况的一种方法是将 a 添加copy到元素的创建中：

my $newSummary = XML::Twig::Elt->parse( '<p><i>' . $text . '</i></p>' )->copy;
于 2012-11-07T07:59:45.253 回答
1

你没有返回任何东西。删除子例程中的打印语句，您将获得以下输出：

after parse: <block><p><i>bar baz</i></p><foo>bar baz</foo></block>
于 2012-11-07T07:31:44.743 回答