我在变量 $myXML 中有以下 xml 作为字符串,需要将其插入到 root->grouping
<mydata seq="ee">
<subdata name="bla" value="bla" />
</mydata>
上面的xml需要插入root->grouping
<root>
<grouping>
</grouping>
</root>
我目前正在使用 XML::Twig,如果你能帮助我使用它,那是最理想的
编辑:
我正在处理驻留在文件中的复杂
最佳答案
我是这样做的:我将从 $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);
}
关于xml - 使用 perl 将字符串 xml 插入到节点,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6471954/