xml - XMLTwigは常にXMLを編集します

Question

私はそれを正しく使用していないと確信しています、私のコード：

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

XML::Twig->new( pretty_print  => 'indented',
                twig_handlers => { '//Item[@PartNumber]' => \&_pitem
                                  },
)->parsefile_inplace( 'order2.xml', '.bak' );

sub _pitem {
    $_->set_text(...) if (....);
}

XMLにそのXPath式に一致する要素がない場合、XMLは空であることが判明したようです...ファイルを切り捨てます。私の望ましい動作は次のとおりです。一致する要素がない場合は、XMLの編集をまったく避けてください。

Answer 1

使用するparsefile_inplaceと、ファイルはいずれにせよ上書きされます。

flushファイルを作成するか、必要に応じて新しいファイルの作成を自分で管理する必要があります。

のコードをXML::Twigベースとして使用できます。

Answer 2

XMLを出力するものは何も書いていません。

twig_rootsこのように使用する必要があります

my $twig = XML::Twig->new(
    twig_roots               => { '//Item[@PartNumber]' => \&_pitem },
    twig_print_outside_roots => 1,
    pretty_print             => 'indented',
);

$twig->parsefile_inplace( 'order2.xml', '.bak' );

sub _pitem {
    $_->set_text(...) if (....);
    $_->print;
}

Answer 3

_pitemの最後に、次のことを行う必要があります

$_->flush;