Как я могу разобрать JSON в Perl?

Question

Я хочу использовать Perl-скрипт, который получает данные JSON и преобразует его в XML-файл. Как я могу это сделать в Perl?

Answer 1

Установка: XML::XML2JSON с

Судо 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; 

Answer 2

use JSON; 

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

my $deserialized = from_json($json_string); 

Это все - ваши данные в формате JSON обрабатывается и хранится в $ десериализованном.