Comment puis-je analyser JSON en Perl?

Question

Je veux utiliser le script Perl qui récupère les données JSON et les convertit en fichier XML. Comment puis-je faire ça en Perl?

Answer 1

Installer: XML::XML2JSON avec

XML sudo CPAN :: xml2json

puis essayez:

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

C'est tout - vos données JSON est analysé et stocké en $ désérialisé.