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/perluse 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->dec
ode("$_");    #见下⾯的解析⽅法}}else{  print "读取json数据失败。\n";}1. 对象"title":"都市⼥孩"代码:my $title = $json_obj->{'title'};2. 对象组合"images": {"small":"http:\/\/img3.douban\/spic\/s8968115.jpg",          "large":"http:\/\/img3.douban\/lpic\/s8968115.jpg",        "medium":"http:\/\/img3.douban\/mpic\/s8968115.jpg"        }代码:my $imgurl  = $json_obj->{'images'}->{'large'};3. 数组"countries":["美国"],"aka":["⼥孩我最⼤(台)","衰们"]}代码:my $aka = ""; for my $item(@{$json_obj->{'aka'}}) {                                                                                                                                                $aka .= $item.",";                                                                                                                            }4. 对象与数组的组合"casts":[        {"avatars":{"small":"http:\/\/img3.douban\/img\/celebrity\/small\/21417.jpg",                    "large":"http:\/\/img3.douban\/img\/celebrity\/large\/21417.jpg",
"medium":"http:\/\/img3.douban\/img\/celebrity\/medium\/21417.jpg"                    },
"alt":"http:\/\/movie.douban\/celebrity\/1011562\/",          "id":"1011562",          "name":"刘涛"        },        {"avatars": {"small":"http:\/\/img3.douban\/img\/celebrity\/small\/34429.jpg",
"large":"http:\/\/img3.douban\/img\/celebrity\/large\/34429.jpg",
"medium":"http:\/\/img3.douban\/img\/celebrity\/medium\/34429.jpg"                    },
"alt":"http:\/\/movie.douban\/celebrity\/1044611\/",        "id":"1044611",        "name":"保剑锋"        },        {"avatars": {"small":"http:\/\/img3.douban\/img\/celebrity\/small\/33257.jpg",
"large":"http:\/\/img3.douban\/img\/celebrity\/large\/33257.jpg",
"medium":"http:\/\/img3.douban\/img\/celebrity\/medium\/33257.jpg"                    },js获取json的key和value
"alt":"http:\/\/movie.douban\/celebrity\/1315704\/",          "id":"1315704",          "name":"谢祖武"        },        {"avatars":null,          "alt":null,        "id":null,          "name":"乔⼤韦"        }        ]for my $item(@{$json_obj->{'casts'}})                                                                                                          {                                                                                                                                                  $cast .= $item->{'name'}.",";                                                                                                                }

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。