如何在Perl中解析JSON？

Question

我想使用获取JSON数据并将其转换为XML文件的Perl脚本。我怎么能在Perl中做到这一点？

Answer 1

use JSON;

my $json_string = '................';

my $deserialized = from_json( $json_string );

这就是全部 - 您的JSON数据被解析并存储在$ deserialized中。

Answer 2

使用

安装：XML::XML2JSON

  

sudo cpan XML :: XML2JSON

然后尝试：

use XML::XML2JSON;
my $JSON = '{"entry":{"name":"Douglas Crockford","phone":"555 123 456"}}';
my $XML2JSON = XML::XML2JSON->new();
my $Obj = $XML2JSON->json2obj($JSON);
my $XML = $XML2JSON->obj2xml($Obj);
print $XML;