perl + DOM + 使用 XML::LibXML + 如何从 XML 文件中删除 xml 版本标题？使用 DOM

Question

我使用 XML::LibXML 通过 perl script (Showing down) 创建了以下 XML 文件:

 more test.xml 

 <?xml version="1.0"?>
 <books>
 <computer/>
 </books>

我的问题:如何删除“xml版本标题”:

      <?xml version="1.0"?>

从 test.xml 文件？在 perl 脚本中使用 DOM 命令？

为了只获取 text.xml 文件中的以下几行:

 <books>
 <computer/>
 </books>

耶尔

#

perl 脚本:

#!/usr/bin/perl

use strict;
use warnings;
use XML::LibXML;

my $doc  = XML::LibXML::Document->new;  
my $root = $doc->createElement('books');
$doc->setDocumentElement($root);

my $computer = $doc->createElement('computer');
$root->appendChild($computer);
$doc->toFile('/var/tmp/test.xml'); 

Answer 1

好的，关于我之前的评论，我现在找到了解决方案。

好像toFile绕过 $skipXMLDeclaration而toString没有。所以以下工作:

$XML::LibXML::skipXMLDeclaration = 1;

my $doc  = XML::LibXML::Document->new;
# create your document

print $doc->toString;

(非常小的)缺点是您必须自己编写文件。