How can I parse JSON in Perl?

Question

I want to use Perl script that gets the JSON data and converts it into XML file. How can I do that in Perl?

Answer 1

Install: XML::XML2JSON with

sudo cpan XML::XML2JSON

and then try:

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

That's all - your JSON data is parsed and stored in $deserialized.