добавить и элемент в XML-файл в Perl - PullRequest
Новая
       2

добавить и элемент в XML-файл в Perl

3 голосов
/ 27 мая 2011

У меня есть XML-файл, как показано ниже: 

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

Я пытаюсь добавить и element4 в perl, используя xml: dom 

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);

Я получаю ошибку: "Неопределенная подпрограмма & XML :: LibXML :: Element :: getNodeType "

Я попытался метод insetBefore, найдя элементы и пытаясь вставить его до этого.

Есть указатели, что я делаю не так?

Ответы [ 3 ]

6 голосов
/ 27 мая 2011

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);
0 голосов
/ 24 февраля 2014

Я думаю, что самый простой способ сделать это с XML :: Simple 

use XML::Simple;

my $xml = XMLin('mytest.xml', ForceArray => 1);
$xml->{element4} = ['789'];
open(XML, '>mytest_out.xml');
binmode(XML, ":utf8");
print XML '<?xml version="1.0" encoding="UTF-8"?>'."\n".XMLout($xml, RootName => 'root');
close XML;
0 голосов
/ 27 мая 2011

Он работал нормально для меня и не читал XML :: LibXML (он использовал XML :: Parser :: Expat) У меня установлена ​​версия XML :: DOM 1.44.

Конечно, вы можете попробовать установить XML :: LibXML и посмотреть, решит ли это проблему.

...