时间戳

首页 > 解决方案 > 我如何使用 perl 模块 XML::LibXML 创建 xml 内容/文档

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

问题描述

如何使用 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>

标签： perlxml-parsing

解决方案

类似的东西

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

推荐阅读