[Perl] 用Perl解析JSON文件

最近接触了一种叫做JSON (JavaScript Object Notation) 的数据格式，官方的说法是“一种轻量级的数据交换格式。 易于人阅读和编写。同时也易于机器解析和生成“。

我的感觉是这个东东和XML之类的格式类似，总之当我们需要格式化地传输数据时，这些东西就可以起作用了。 关于JSON本身是怎么组织数据的， 可以去这里。

数据格式定义好了，剩下的事情就是用编程语言解析它。 这里介绍Perl中JSON模块， 下面的这段代码能够完成将JSON格式的数据转化成Perl数据结构！这太方便了，有了Perl的数据结构，我们就可以方便的用Perl对这些数据进行访问了.

#!/usr/bin/perl
use JSON;
use Data::Dumper;

my $json = new JSON;

my $js;
open JFILE, "json_file";
while(<JFILE>) {
   $js .= "$_";
}
my $obj = $json->jsonToObj($js);
print "The structure of obj: ".Dumper($obj);