当id不相等时插入元素

Question

如果 $upd_dev_id 不相等，我想将 updev.xml 插入到 mainea.xml 中。尝试了下面的方法，但无法插入。替换作品。

#!c:\perl\bin\perl.exe
use strict;
use XML::Twig;

my $upd_file = "updev.xml" ;
my $main_file = "mainea.xml" ;


# get the info we need by loading the update file
my $t_upd= new XML::Twig();
$t_upd->parsefile( $upd_file);

my $upd_dev_id = $t_upd->root->next_elt( 'DEVNUM')->text;
my $upd_dev    = $t_upd->root->next_elt( 'DEVS');

# now process the main file
my $t= new XML::Twig( TwigHandlers => { DEVS => \&DEVS, },
        PrettyPrint => 'indented',
      );
$t->parsefile( $main_file);
$t->flush;           # don't forget or the last closing tags won't be printed

sub DEVS
  { my( $t, $DEVS)= @_;
    # just replace devs if the previous dev_id is the right one
    if( $DEVS->prev_elt( 'DEVNUM')->text eq $upd_dev_id) {
      $upd_dev->replace( $DEVS); 
    }
    else
    {
      $upd_dev->insert( $DEVS);
    }

    $t->flush;    # print and flush memory so only one job is in there at once
  }

Answer 1

insert 不会做你认为它会做的事情，它不会插入元素，而是在现有元素下插入标签。你想要的是粘贴。

比较：

插入（$tag1，[$Optional_atts1]，$tag2，[$Optional_atts2]，...）

对于列表中的每个标记，插入一个元素 $tag 作为该元素的唯一子元素。该元素在“$Optional_atts”中获取可选属性。该元素的所有子元素都被设置为新元素的子元素。返回上层元素。

和：

粘贴（$可选_位置，$ref）

粘贴（之前“剪切”或新生成的）元素。如果元素已经属于树，则死亡。

在将元素粘贴到新树中之前，您可能必须剪切或复制该元素。