使用JSON 模块中的 decode_json 函数，将json文件中的数据解码为perl 中的对象，然后进行处理
代码如下：
#!/usr/bin/env perl
use JSON;
use Encode;
my ($json) = @ARGV;
my $context;
open TXT, $json or die "Can‘t open $json!\n";
while (<TXT>) {
$context .= $_;
}
close TXT;
my $obj = decode_json($context);
转换成perl 中的对象之后，就可以处理了，obj 有两种可能的数据结构，一种是数组的引用，另外一种是哈希的引用
会熟练操作这两种数据结构，后面的事情就简单多了！
原文：http://www.cnblogs.com/xudongliang/p/7520273.html