JSON'u Perl'de nasıl ayrıştırabilirim?

Question

JSON verilerini alan ve XML dosyasına dönüştüren Perl betiğini kullanmak istiyorum. Bunu Perl'de nasıl yapabilirim?

Answer 1

yükleyin: XML::XML2JSON sudo cpan XML :: XML2JSON

ve sonra deneyin

ile:

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

hepsi - JSON veri ayrıştırılır ve depolanır $ serileştirildi.