Perl XML::Twig 没有复制 children

Perl XML::Twig Copying without children

是否可以使用类似

的东西
my $nodeCopy = $node->copy();

不复制 children?我在 page on CPAN 上找不到任何关于它的信息。但也许我遗漏了什么?

没关系,我找到了办法。如果有人在寻找类似的东西,我会把它留在这里。您所要做的就是使用 cut_children。 我是这样做的:

my $nodeCopy = $node->copy();       #copy the node
$nodeCopy->paste('before', $node);  #paste the node
$node->cut_children();             #remove children from the original node