Question

我正在尝试在xdp文件的末尾附加时间戳。我正在使用XML::Twig。在运行脚本时，时间戳（<testing>4619314911532861</testing>）会在末尾添加，但输出将在STDOUT上而不是testdata.xdp。我错过了什么？

代码：

#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;

my $twig=XML::Twig->new(pretty_print => 'indented');
my $file = 'testdata.xdp';
$twig->parsefile_inplace($file, '.bak');
my $root= $twig->root;
my @children= $root->children;

foreach my $child (@children){
    my $eblg= new XML::Twig::Elt( 'testing', localtime);
    $eblg->paste( 'last_child', $child);
}

$twig->flush;

Answer 1

这里的问题是 - parsefile_inplace作为一个独立的东西。它在parse操作完成后立即替换源文件。

所以要像这样使用它，你需要做你的工作＆＃39;在twig_handlers内。如果这样做，它将解析/修改/覆盖。

E.g：

sub insert_after_all {
    my ( $twig, $element ) = @_;
    my $eblg= new XML::Twig::Elt( 'testing', localtime);
    $eblg->paste( 'last_child', $element);
    $twig -> flush;
}

my $twig =  XML::Twig->new(pretty_print => 'indented', 
                      twig_handlers => { '_all_' => \&insert_after_all } );
 my $file = 'testdata.xdp';
 $twig->parsefile_inplace($file, '.bak');

否则 - 重命名源，print {$new_fh} $twig -> sprint;

XML :: Twig - 就地编辑

1 个答案: