如何使用 perl 模块 XML::LibXML 创建 xml 内容/文档

【问题标题】：how can i create xml content/doc using perl module XML::LibXML如何使用 perl 模块 XML::LibXML 创建 xml 内容/文档
【发布时间】：2019-08-12 06:56:09
【问题描述】：

如何使用 XML::LibXML 在 perl 中生成以下 xml 内容

<?xml version="1.0" encoding="UTF-8"?>
<response status="Not Found">
   <errorcode>500</errorcode>
   <message>some message</message>
   <description>some description</description>
</response>

【问题讨论】：

标签： perl xml-parsing

【解决方案1】：

类似的东西

use XML::LibXML;

my $doc = XML::LibXML->createDocument( "1.0", "UTF-8" );
my $root = $doc->createElement("response");
$root->setAttribute('status'=> 'Not Found');

my %tags = (
    errorcode => 500,
    message => 'some message',
    description => 'some description',
);

for my $name (keys %tags) {
    my $tag = $doc->createElement($name);
    my $value = $tags{$name};
    $tag->appendTextNode($value);
    $root->appendChild($tag);
}

$doc->setDocumentElement($root);
print $doc->toString(2); # <= XML indentation

【讨论】：