Perl XML:：不带子级的细枝复制

可以用这样的东西吗

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

---

不模仿孩子？我在网上找不到关于它的任何信息。但也许我错过了什么？

没关系，我找到了一个方法。如果有人找类似的东西，我会把它留在这里。您所要做的就是使用

cut\u children

。 我是这样做的：

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

---

美好的是的，别管了，那很好。你也可以接受自己的答案，我认为这是一个好主意。不过，他们还需要几个小时才能接受自己的答案。