perl 读取json 格式的文件

使用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 有两种可能的数据结构，一种是数组的引用，另外一种是哈希的引用

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