Perl XML::DOM 在文件之间复制节点树

Question

我只是尝试使用 XML::DOM 将人员节点从一个 XML 添加到另一个 XML，即使我正在克隆有问题的树，我仍然收到“WRONG_DOCUMENT_ERR”，因为它表示该节点来自另一个文件。当我尝试将节点附加到新文件时，它就发生了。我做对了吗？

我什至发现正确的解决方案是导入节点，但谷歌搜索“导入站点：http://search.cpan.org/~tjmather/XML-DOM-1.44/”没有给出任何结果。现在我很想知道这怎么可能。

my $yelParser = new XML::DOM::Parser;
my $yelDoc = $yelParser->parsefile ($yelFile);

my $bwParser = new XML::DOM::Parser;
my $bwDoc = $bwParser->parsefile ($bwFile);

my @personTags = $bwDoc->getElementsByTagName("person");

foreach my $personTag (@personTags){
    my $nameTag = $personTag->getElementsByTagName("name")->[0]->getFirstChild;
    my $name = $nameTag->getNodeValue();
    print "Name: $name\n";

    print "Making clone.\n";
    my $clone = $personTag->cloneNode(1);
    print "Removing Bio.\n";
    $clone->getElementsByTagName("biography")->[0]->getFirstChild->setNodeValue('');
    print "Appending to Yellow\n";
    $yelDoc->getElementsByTagName("xml")->[0]->appendChild($clone);
    print "Node done.\n";
}

<STDIN>;

my $outFile = "$folderOut/$filebase";

print "Printing to file... $outFile\n";

$yelDoc->printToFile($outFile);
print "Output done.\n";

Answer 1

终于找到了。一直在规范的底部：

setOwnerDocument（doc）

所以我克隆，设置克隆的新所有者，然后追加。