当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

插入不会做你认为它所做的事情，它不会插入一个元素，它会在现有元素下面插入一个标记。你想要的是粘贴。

比较：

插入件（$ TAG1，[$ optional_atts1]，$ TAG2，[$ optional_atts2]，...）

对于列表中的每个标签插入一个元素$标签作为元素的唯一孩子。元素在“$ optional_atts”中获得可选属性。元素的所有子元素都被设置为新元素的子元素。上层元素被返回。

与：

膏（$ optional_position，$ REF）

粘贴（先前 “切割” 或新生成的）元素。如果元素已经属于一棵树，就死。

在粘贴到新树之前，您可能需要剪切或复制该元素。