Perl에서 JSON을 어떻게 파싱 할 수 있습니까?

Question

JSON 데이터를 가져와 XML 파일로 변환하는 Perl 스크립트를 사용하고 싶습니다. Perl에서 어떻게 할 수 있습니까?

Answer 1

설치 : XML::XML2JSON sudo는 CPAN의 XML :: XML2JSON

다음 시도

로 :

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

전부 - 당신의 JSON 데이터를 파싱 및 저장 $ 역 직렬화.