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

Question

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

Answer 1

use JSON;

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

my $deserialized = from_json( $json_string );

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

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;