在Perl中使用XML :: Twig，如何将父项添加到现有元素？

Question

我有一个XML文档，如下所示：

<element>
 <sub-element></sub-element>
 <sub-element></sub-element>
 <sub-element id="add_parent"></sub-element>
</element>

我想将父节点添加到具有属性“add_parent”的节点，所以它看起来像这样：

<element>
 <sub-element></sub-element>
 <sub-element></sub-element>
 <new-parent>
  <sub-element id="add_parent"></sub-element>
 </new-parent>
</element>

我正在使用XML::Twig来选择正确的元素：

#!/usr/bin/perl -w
use warnings;
use XML::Twig;

$t->parsefile ('input.xml');
$v = $t->first_elt('[@id]');

哪个工作正常，我想知道是否有可能将select元素封装在一个新元素中？

Answer 1

是的，使用wrap_in方法：

$v->wrap_in( 'new-parent');