xml - 使用 perl 将字符串 xml 插入到节点

Question

我在变量 $myXML 中有以下 xml 作为字符串，需要将其插入到 root->grouping

<mydata seq="ee">
    <subdata name="bla" value="bla" />
</mydata>

上面的xml需要插入root->grouping

<root>
  <grouping>    
  </grouping>
</root>

我目前正在使用 XML::Twig，如果你能帮助我使用它，那是最理想的

编辑:我正在处理驻留在文件中的复杂 结构。我需要一种方法将 xml 加载到 perl 中并将我的 xml 字符串作为节点插入。同样在我的例子中， 中已经有一些节点。

Answer 1

我是这样做的:我将从 $myXML 中的 XML 创建一个元素，然后将其添加为 grouping 的最后一个子元素:

#!/usr/bin/perl

use strict;
use warnings;

use XML::Twig;

my $myXML='<mydata seq="ee"><subdata name="bla" value="bla" /></mydata>';

my $t= XML::Twig->new( twig_handlers => { grouping => sub { grouping( $myXML, @_); }, })
                ->parsefile( "so_insert.xml");

$t->print;
exit;

sub grouping
  { my( $xml, $t, $grouping)= @_;
    my $new_elt= XML::Twig::Elt->parse( $xml);
    $new_elt->paste( last_child => $grouping);
  }