Làm cách nào để phân tích cú pháp JSON trong Perl?

Question

Tôi muốn sử dụng tập lệnh Perl để lấy dữ liệu JSON và chuyển đổi nó thành tệp XML. Làm thế nào tôi có thể làm điều đó trong Perl?

Answer 1

Install: XML::XML2JSON với

sudo CPAN XML :: XML2JSON

và sau đó thử:

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

Đó là tất cả - dữ liệu JSON của bạn được phân tách và lưu trữ trong $ deserialized.