如何使用 Perl 的 XML::Simple 生成 XML？

Question

我只是想创建 XML

use XML::Simple;

my %element = ( "a" => "10" , 
                "b" => "20" ,);

my $xs = new XML::Simple();
my $ref = $xs->XMLin(%element);
my $xml = $xs->XMLout($ref);
print $xml;

这段代码有什么问题？ （这个问题解决了）

use XML::Simple;

my %element = ( "a" => "10" , 
                "b" => "20" ,);

my $xs = new XML::Simple();
my $xml = $xs->XMLout(\%element);
print $xml;

这会产生以下输出：

<opt a="10" b="20" />

但我真正想要的是：

<a> 10 </a>
<b> 20 </b>

我怎样才能做到这一点？

Answer 1

XMLin 接受 XML 并将其转换为 Perl 数据结构。

XMLout 采用 Perl 数据结构并将其转换为 XML。

您正在尝试将 Perl 数据结构提供给 XMLin 并将结果提供给 XMLout。

你考虑过阅读documentation吗？

---

更新：文档（是的，我们知道这很无聊）提供了很多选项，您可以将它们传递给 XML::Simple::new()。其中之一是NoAttr => 1。你可能想check that one out，但看看其他的（其中一些被标记为“重要”）不会有什么坏处。

Answer 2

您正在反向使用它。 XMLin 是一个 XML 解码器（接受一个 XML 编码的文档，返回 Perl 结构）； XMLout 是一个 XML 编码器（采用 Perl 结构，返回一个 XML 编码的文档）。