我正在使用 libXML 更新一批 XML 設定檔案。這是我要更新的 xml 部分的示例：
<Setting SID="2091">
<Name>HME Cloud User Email</Name>
<Value/>
</Setting>
我可以使用以下代碼正確更新該部分。
#!/usr/bin/perl
use File::Basename;
use XML::LibXML;
use XML::LibXML::XPathContext;
@files = glob('C:\Users\1025144\Documents\timer_test\*.xml');
foreach $file (@files)
{
my $dom = XML::LibXML->load_xml(location => $file);
my $xpc = XML::LibXML::XPathContext->new($dom);
$xpc->registerNs('xsd', 'http://hme.com/Settings.xsd');
#Add email
my($match9) = $xpc->findnodes('//xsd:Settings/xsd:Setting[@SID="2091"]/xsd:Value');
$match9->removeChildNodes();
$match9->appendText('[email protected]');
open (OUTFILE, ">$file");
print OUTFILE $dom;
}
print "XML Files Updated."
但問題是某些設定檔案缺少此 SID 的值節點，請參見下面的示例：
<Setting SID="2091">
<Name>HME Cloud User Email</Name>
</Setting>
我一直在查看 addChild 以嘗試將節點放入此 SID，但我似乎無法弄清楚語法。我斷斷續續地使用 perl，所以我希望有人能幫我弄清楚如何添加這個節點，或者如果 SID 有 Value 節點，我是否可以使用其他解決方案。
任何幫助表示贊賞 - 謝謝！
uj5u.com熱心網友回復：
使用if，如果值不存在，請使用addNewChild.
#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };
use XML::LibXML;
my @files = @ARGV;
my $uri = 'http://hme.com/Settings.xsd';
for my $file (@files) {
my $dom = 'XML::LibXML'->load_xml(location => $file);
my $xpc = 'XML::LibXML::XPathContext'->new($dom);
$xpc->registerNs('xsd', $uri);
if (my ($email) = $xpc->findnodes('//xsd:Settings/xsd:Setting[@SID="2091"]/xsd:Value')) {
$email->removeChildNodes;
$email->appendText('[email protected]');
} else {
my ($setting) = $xpc->findnodes('//xsd:Settings/xsd:Setting[@SID="2091"]');
$setting->addNewChild($uri, 'Value')->appendText('[email protected]');
}
$dom->toFile("$file.new");
}
say "XML Files Updated."
筆記：
- 使用嚴格和警告。
- 您不需要使用 XML::LibXML::XPathContext。使用XML::LibXML就足夠了。
- 用于
toFile列印 XML。
uj5u.com熱心網友回復：
如果您洗掉它，您不必擔心節點已經存在:)
my ( $setting ) = $xpc->findnodes( '//xsd:Settings/xsd:Setting[@SID="2091"]' )
or die( "Setting not found\n" );
$_->unbindNode() for $xpc->findnodes( 'xsd:Value', $setting );
$setting->addNewChild( $uri, 'Value' )->appendText( '[email protected]' );
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/459319.html
標籤：xml perl xml 解析 xml-libxml 子节点
上一篇：在輸出檔案中添加檔案名
下一篇：計算節點數R,xml2