在XML文件中添加元素

Question

如果我的英語說得不好，我很抱歉，我是意大利學生。

我的問題是：

我想插入一個XML文件中的新元素admin並保存結果。

例如，我想這個開始：

<admins> 
    <admin> 
    <mail>admin@admin.it</mail> 
    <password>admin</password> 
    <user>admin</user> 
    </admin> 
</admins> 

和我想要的輸出是：

<admins> 
    <admin> 
    <mail>admin@admin.it</mail> 
    <password>admin</password> 
    <user>admin</user> 
    </admin> 
    <admin> 
    <mail>master@uni.it</mail> 
    <password>master</password> 
    <user>master</user> 
    </admin> 
</admins> 

我怎樣才能做到這一點？

我嘗試了各種方法，但都沒有給出好的結果。

我試過XML::LibXML，例如：

use XML::LibXML; 

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

my $root = $doc->getDocumentElement(); 

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

$root->appendChild($new_element); 

print $root->toString(1); 

我可以添加一個元素，但只能在本地，我無法保存文件中的新項目。

Answer 1

我認爲這樣做最簡單的方法是使用XML ::簡單

use XML::Simple; 

my $xml = XMLin('prova.xml', ForceArray => 1); 
my $newAdmin = {mail => ['master@uni.it'], password => ['master'], user => ['master']}; 
push(@{$xml->{admin}}, $newAdmin); 
open(XML, '>prova_new.xml'); 
binmode(XML, ":utf8"); 
print XML '<?xml version="1.0" encoding="UTF-8"?>'."\n".XMLout($xml, RootName => 'admins'); 
close XML; 

Answer 2

有幾種方法可以做到這一點，但您自己的解決方案似乎只缺少文件的輸出。

該程序顯示如何從文本字符串中添加一塊XML，並將結果打印到prova_new.xml。

use strict; 
use warnings; 

use XML::LibXML; 

my $parser = XML::LibXML->new; 
my $doc = $parser->parse_file('prova.xml'); 

my $admins = $doc->getDocumentElement; 

$admins->appendWellBalancedChunk(<<'END'); 
    <admin> 
    <mail>master@uni.it</mail> 
    <password>master</password> 
    <user>master</user> 
    </admin> 
END 

open my $out, '>', 'prova_new.xml' or die $!; 

print $out $doc->toString(1); 

輸出

<?xml version="1.0"?> 
<admins> 
    <admin> 
    <mail>admin@admin.it</mail> 
    <password>admin</password> 
    <user>admin</user> 
    </admin> 
    <admin> 
    <mail>master@uni.it</mail> 
    <password>master</password> 
    <user>master</user> 
    </admin> 
</admins>