Perl XML::没有子的树枝复制

Question

是否可以使用

my $nodeCopy = $node->copy();

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

Answer 1

没关系，我找到办法了。如果有人找到类似的东西，我就把它留在这里。你所要做的就是用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