在perl中添加和元素到xml文件

Question

我有一个xml文件,如下所示:

<root>
 <element1>abc</element1>
 <element2>123</element2>
 <element3>456</element3>
</root>

我正在尝试使用xml:dom在perl中添加和element4

use XML::DOM;

#parse the file
my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile ("mytest.xml");
my $root = $doc->getDocumentElement();

my $new_element= $doc->createElement("element4");
my $new_element_text= $doc->createTextNode('testing');
$new_element->appendChild($new_element_text);

$root->appendChild($new_element);

我收到错误:"Undefined subroutine&XML :: LibXML :: Element :: getNodeType"

我尝试了insetBefore方法,通过查找元素并尝试在此之前插入它.

任何指针,我做错了什么？

Answer 1

XML :: DOM似乎是在2000年最后一次更新,这意味着它不是很受支持的模块.看起来XML :: LibXML提供了非常相似的界面,见下面的工作示例:

use XML::LibXML;

my $parser = XML::LibXML->new;
my $doc = $parser->parse_file("mytest.xml");
my $root = $doc->getDocumentElement();

my $new_element= $doc->createElement("element4");
$new_element->appendText('testing');

$root->appendChild($new_element);

print $root->toString(1);