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

輸出：

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