客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
使用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 有两种可能的数据结构，一种是数组的引用，另外一种是哈希的引用 会熟练操作这两种数据结构，后面的事情就简单多了！ |
请发表评论