PERL로 JSON 구문 분석

Question

PERL로 JSON 문자열을 구문 분석하고 싶습니다.
내 JSON 문자열;

{"to_id": 0, "message": "This is a sample", "message_id": 1000, "from_id": 999} 

어떻게 JSON을 구문 분석하고 모든 객체와 값을 반환합니다.
샘플 출력; 별도의 변수

to_id: 0 
message: This is a sample 
message_id: 1000 
from_id: 999 

없음 XML 출력 및 객체와 값

미리 감사드립니다

Answer 1

사용 JSON 모듈이다. 여기에 그것을 사용하는 방법의 예는 다음과 같습니다

use strict; 
use warnings; 
use Data::Dumper; 
use JSON; 

my $str = q|{"to_id": 0, "message": "This is a sample", "message_id": 1000, "from_id": 999}|; 

print Dumper from_json($str); 

출력 : 다른 질문 XML 출력을 지향하더라도

$VAR1 = { 
      'from_id' => 999, 
      'message_id' => 1000, 
      'to_id' => 0, 
      'message' => 'This is a sample' 
     };