使用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 (
     
      ) {	$context .= $_;}close TXT;my $obj    = decode_json($context);
     

转换成perl 中的对象之后，就可以处理了，obj 有两种可能的数据结构，一种是数组的引用，另外一种是哈希的引用

会熟练操作这两种数据结构，后面的事情就简单多了！