使用 Perl 脚本仅更改 XML 中节点值中的几个字符

Question

原始XML：

<library>
<email name="Peter P">[e-mail]</email>
</library>

预期成果：

<library>
<email name="Peter Parker">[e-mail]</email>
<address>London</address>
</library>

进一步的 XML 挑战：

<library>
<email name="Peter Parker">[e-mail]</email>
<address> 
<housenumber>1</housenumber>
<street>Regent Street</street>
<postcode>AB12YZ</postcode>
</address>
</library>

法典：

use strict;
use XML::LibXML;
use XML::LibXML::NodeList;
my $parser = XML::LibXML->new;
my $doc = $parser->parse_file("StackTest.xml");
my $root = $doc->getDocumentElement();
#to modify email address
my $email = $doc->findnodes("/library/email");
my $text = XML::LibXML::Text->new('[e-mail]');
$email->replaceNode($text);
#to modify email name attribute
my $email_attribute = $doc->findnodes("/library/email");
my $email_name_att->setAttribute(q|name|,"Peter Parker");
$email_attribute->getAttribute(q|name|);
#to add <address tag> with value
my $address = $doc->createElement('address');
$address->appendText('London');
$root->appendChild($address);
print($doc->toString);

错误信息：

无法通过包"XML：：LibXML：：NodeList"找到对象方法"replaceNode">

我是初学者，也是Perl脚本的新手。我想使用 Perl 和 XML：：LibXML 模块修改 XML 文件。我也访问了CPAN，但很少有相关的例子很难掌握这个概念。如果你能给我一些提示，那将是一个很好的提高我的知识。

乐于得到任何形式的反馈，并愿意学习:)

Answer 1

来自 XML：：LibXML：：Node 的文档：

findnodes 计算当前节点上的 xpath 表达式 (XPath 1.0(，并将结果节点集作为数组返回。在标量上下文中，返回一个 XML：：LibXML：：NodeList 对象。

由于$variable = $doc->findnodes(...)，您的调用在标量上下文中。 您有三种选择：

1. 使用my $el = $doc->find(...)返回单个节点。
2. 或者，使用语法my ($el) = $doc->findnodes(...)。这将导致在列表上下文中调用，并将返回列表的第一个元素分配给$el。

3. 如果 XPath 表达式可以有多个节点，则可以使用for表达式遍历->findnodes(...)的结果，如下所示：

   for my $el ($doc->findnodes(...) {
   print $el->tostring()
   }
   

Answer 2

以下代码最终对我有用，但是，如果您发现我可以改进的任何内容，请发表评论。

use strict;
use XML::LibXML;
use XML::LibXML::NodeList;
use XML::LibXML::PrettyPrint;
my $parser = XML::LibXML->new;
my $doc = $parser->parse_file("StackTest.xml");
my $root = $doc->getDocumentElement();
#to modify email address
for my $email ($doc->findnodes('//library/email/text()')) {
my $text = $email->getValue;
$text =~ s{_}(.);   
$email->setData($text);
}
#to modify email name attribute
for my $email_attribute ($doc->findnodes('//library/email/@name')) {
my $email_name_att = $email_attribute->getValue;
$email_name_att =~ s{sP}( Parker);
$email_attribute->setValue($email_name_att);
}
#to add <address tag> with value
for my $addresstag ($doc->findnodes('//library')) {
my $address = $doc->createElement('address');
my $street = $doc->createElement('street');
my $city = $doc->createElement('city');
$addresstag->addChild($address);
$address -> addChild($street);
$address -> addChild($city);
$street -> appendText('Forest Hills');
$city -> appendText('New York');
}
#print($doc->toString);
print XML::LibXML::PrettyPrint
-> new ( element => { compact => [qw/street/]})
-> pretty_print($doc)
-> toString;

输入 XML 文件：

<library>
<email name="Peter P">[e-mail]</email>
</library>

输出XML文件(此处手动格式化文本以使其清晰(：

<?xml version="1.0"?>
<library>
<email name="Peter Parker">[e-mail]</email>
<address>
<street> Forest Hills </street>
<city> New York </city>
</address>
</library>