XML::LibXML在写入XML时删除标题

Question

当我用XML:：LibXML更新值时，前两行将被删除。除了一个更新的值之外，我想保持xml的原样。

我的原始xml是：

<?xml version="1.0"?>
<?xml-stylesheet type="text/xsl" href="configuration.xsl"?>
<configuration>
 <property>
   <name>test.name</name>
   <value>help</value>
   <description>xml issue</description>
 </property>

代码是：

my $parser =XML::LibXML->new();
my $tree   =$parser->parse_file($file) or die $!;
my $root   =$tree->getDocumentElement;
my $searchPath="/configuration/property[name="$name"]/value/text()";
my ($val)=$root->findnodes($searchPath);
$val->setData($new_val);
open (UPDXML, "> $file") or die "ERROR: Failed to write into $file...";
 print UPDXML $root->toString(1);
close (UPDXML);

我尝试打印UPDXM$root->toStringC14N（1），但它没有帮助。。。

Answer 1

daxim和rpg的答案都是这样做的，但为了强调，使用$tree->toString()而不是$root->toString()来获取整个文件。

Answer 2

请参阅XML:：LibXML:：Document中的toFile。请务必阅读您正在使用的软件的文档。

use strictures;
use XML::LibXML qw();
my $file    = 'fnord.xml';
my $name    = 'test.name';
my $new_val = 'foo';
my $parser  = XML::LibXML->new;
my $tree    = $parser->parse_file($file);
my $root    = $tree->getDocumentElement;
my $searchPath  = "/configuration/property[name='$name']/value/text()";
my ($val)       = $root->findnodes($searchPath);
$val->setData($new_val);
$tree->toFile($file);

文件例程会自动引发异常，不需要传统的Perl错误检查。

Answer 3

请尝试此

$tree->toFile ($file);