perl - 如何在 Perl 中从 JSON 字符串创建 XML？

Question

我有一个JSON Encoded字符串。我需要从中创建XML。

现在我正在做的是，使用JSON PERL MODULE我正在解码字符串，这将创建一个 Perl 数组。循环遍历数组并创建 XML。这是一种更多的编码。

这个工作的任何模块？

这将自动将 JSON 转换为 XML ......我用谷歌搜索了它，但我没有找到任何解决方案。

我知道有一个模块可以将 XML 转换为 JSON XMLTOJSON。

Answer 1

请结帐，这可能会帮助你！

链接#01

来自博客blogLink 作者：yakovsh

最近我不得不使用以 JSON 格式返回的 Google AJAX API 数据。出于我的目的，数据需要采用 XML 格式。虽然有一个名为XML2JSON的 CPAN 模块旨在做到这一点，但由于某种原因它阻塞了我的输入。相反，我采用了来自Google::Data::JSON模块的更简单的技术，如下所示：

use JSON::Any;
use XML::Simple;

my $convertor = JSON::Any->new();
my $data = $convertor->decode($json);
my $xml = XMLout($data)