Perl解析JSON数据精解

JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。
它基于JavaScript（Standard ECMA-262 3rd Edition - December 1999）的一个子集。?
JSON采用完全独立于语言的文本格式，
但是也使用了类似于C语言家族的习惯（包括C,C++,C#,Java,JavaScript,Perl,Python等）。
这些特性使JSON成为理想的数据交换语言。易于人阅读和编写，同时也易于机器解析和生成。

JSON建构有两种结构：
json简单说就是javascript中的对象和数组，
所以这两种结构就是对象和数组2种结构，通过这两种结构可以表示各种复杂的结构
1、 对象 ：对象在js中表示为“{}”扩起来的内容，
? ? ? ? ?数据结构为 {key：value，key：value,...}的键值对的结构，
? ? ? ? ?在面向对象的语言中，key为对象的属性，value为对应的属性值，所以很容易理解，
? ? ? ? ?取值方法为 对象.key 获取属性值，这个属性值的类型可以是 数字、字符串、数组、对象几种。
2、 数组： 数组在js中是中括号“[]”扩起来的内容，
? ? ? ? ?数据结构为 ["java","javascript","vb",...]，
? ? ? ? ?取值方式和所有语言中一样，使用索引获取，字段值的类型可以是 数字、字符串、数组、对象几种。
经过对象、数组2种结构就可以组合成复杂的数据结构了。
解析方法:
JSON文档的解析可以使用Perl的JOSN模块，能很方便解析出各种结构和组合中的数据
实例:
#!/usr/bin/perl
use Encode;
use JSON;
use Data::Dumper;
my $json = new JSON;
#或以转换字符集 my $json = JSON->new->utf8;
my $json_obj;
if(open(MYFILE,"FILE_PATH/json.html"))?
{
? print "读取json数据成功。n";
? while(<MYFILE>)?
? {
? ? $json_obj = $json->decode("$_");
? ? #见下面的解析方法?
? }
}else{
? print "读取json数据失败。n";
}
1. 对象
"title":"都市女孩"
代码:
my $title = $json_obj->{'title'};
2. 对象组合
"images":{"small":"http://img3.douban.com/spic/s8968115.jpg",
? ? ? ? ? "large":"http://img3.douban.com/lpic/s8968115.jpg",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? "medium":"http://img3.douban.com/mpic/s8968115.jpg"
? ? ? ? ?}
my $imgurl ?= $json_obj->{'images'}->{'large'};
3. 数组
"countries":["美国"],sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">"aka":["女孩我最大(台)","衰姐们"]}
my $aka = "";
for my $item(@{$json_obj->{'aka'}})
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? $aka .= $item.","; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
}
4. 对象与数组的组合
"casts":[
? ? ? ? ?{"avatars":{"small":"http://img3.douban.com/img/celebrity/small/21417.jpg",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? ? ? ? ? ? ?"large":"http://img3.douban.com/img/celebrity/large/21417.jpg",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? ? ? ? ? ? ?"medium":"http://img3.douban.com/img/celebrity/medium/21417.jpg"
? ? ? ? ? ? ? ? ? ? },sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? "alt":"http://movie.douban.com/celebrity/1011562/",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? "id":"1011562",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? "name":"刘涛"
? ? ? ? ?},sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ?{"avatars":{"small":"http://img3.douban.com/img/celebrity/small/34429.jpg",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? ? ? ? ? ? ?"large":"http://img3.douban.com/img/celebrity/large/34429.jpg",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? ? ? ? ? ? ?"medium":"http://img3.douban.com/img/celebrity/medium/34429.jpg"
? ? ? ? ?"alt":"http://movie.douban.com/celebrity/1044611/",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ?"id":"1044611",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ?"name":"保剑锋"
? ? ? ? ?{"avatars":{"small":"http://img3.douban.com/img/celebrity/small/33257.jpg",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? ? ? ? ? ? ?"large":"http://img3.douban.com/img/celebrity/large/33257.jpg",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? ? ? ? ? ? ?"medium":"http://img3.douban.com/img/celebrity/medium/33257.jpg"
? ? ? ? ? "alt":"http://movie.douban.com/celebrity/1315704/",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? "id":"1315704",sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? "name":"谢祖武"
? ? ? ? ?{"avatars":null,sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? "alt":null,sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? "id":null,sans-serif; font-size:14px; line-height:normal; white-space:normal; background-color:#FFFFFF">? ? ? ? ? "name":"乔大韦"
? ? ? ? ]
for my $item(@{$json_obj->{'casts'}}) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? { ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? $cast .= $item->{'name'}.","; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? }