使用JSON 模块中的 decode_json 函数，将json文件中的数据解码为perl 中的对象，然后进行处理
代码如下：
#!/usr/bin/env perluse 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 有两种可能的数据结构，一种是数组的引用，另外一种是哈希的引用
会熟练操作这两种数据结构，后面的事情就简单多了！
perl ?读取json 格式的文件
原文地址：http://www.cnblogs.com/xudongliang/p/7520273.html