¿Cómo puedo analizar JSON en Perl?

Question

Quiero utilizar un script Perl que obtenga los datos JSON y los convierta en un archivo XML. ¿Cómo puedo hacer eso en Perl?

Answer 1

Instalar: XML::XML2JSON con

sudo CPAN XML :: XML2JSON

y luego tratar:

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); 

Eso es todo - sus datos JSON se analiza y almacena en $ deserializado.