如何使用Perl的XML :: LibXML将XML DOM树保存到新文档？

Question

我编写以下（DOM）Perl脚本（如下所示）以创建以下XML DOM：

 <books>
 <computer/>
 </books>

如何将XML输出保存到test.xml文件中？我试图用

保存XML

 $doc->printToFile('/tmp/test.xml'); 

但我明白了：

can't locate object method "printToFile" via package "XML::LibXML::Document"

Perl脚本：

 #!/usr/bin/perl

 use XML::LibXML;
 my $doc;
 $doc = XML::LibXML::Document->new;

 my $objbooks = $doc->createElement('books');
 $doc->appendChild($objbooks);

 my $objcomputer = $doc->createElement('computer');
 $objbooks->appendChild($objcomputer);

Answer 1

我想你想要XML::LibXML::Document::toFile：

 $state = $doc->toFile($filename, $format);

     

此函数类似于toString()，但它将文档直接写入文件系统。如果需要存储大型文档，此功能非常有用。

     

format参数与toString()中的行为相同。