<pre name="code" class="cpp">http://11.36.10.82:4000/api/bus?bus=307&flag=1
返回json是: 其实就是数组的引用编码成json ["","黄龙体育中心","教工路花园亭","花园新村","浙江工商大学","保亭巷","教工路塘河路口","大关桥西","长乐路","二纺机总厂","沈塘湾","善贤社区","善贤坝","皋亭坝","李王桥","袁家村","张家园","杭玻","焦化分厂","沈家桥","毛竹山","薄板分厂","刘文村"] jrhmpt01:/root# cat y1.pl
use LWP::UserAgent;
use Data::Dumper;
use JSON qw/encode_json decode_json/;
my $ua = LWP::UserAgent->new;
$phone=$ARGV[0];
$cc=$ARGV[1];
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");
$host = "http://115.236.160.82:3000/api/bus?bus=307&flag=1";
my $response = $ua->get($host); $ua->default_headers;
if ($response->is_success) {
print $response->decoded_content; # or whatever
my $json_out=$response->decoded_content;
$arr = decode_json($json_out);
}
else {
die $response->status_line;
};
print "11111111111111\n";
use Data::Dumper; my $xx= Dumper($arr);
print $xx;
print "\n";
print "111111111111111\n";
print $arr->[1]."\n" jrhmpt01:/root# perl y1.pl
["","黄龙体育中心","教工路花园亭","花园新村","浙江工商大学","保亭巷","教工路塘河路口","大关桥西","长乐路","二纺机总厂","沈塘湾","善贤社区","善贤坝","皋亭坝","李王桥","袁家村","张家园","杭玻","焦化分厂","沈家桥","毛竹山","薄板分厂","刘文村"]11111111111111
$VAR1 = [
'',
"\x{9ec4}\x{9f99}\x{4f53}\x{80b2}\x{4e2d}\x{5fc3}",
"\x{6559}\x{5de5}\x{8def}\x{82b1}\x{56ed}\x{4ead}",
"\x{82b1}\x{56ed}\x{65b0}\x{6751}",
"\x{6d59}\x{6c5f}\x{5de5}\x{5546}\x{5927}\x{5b66}",
"\x{4fdd}\x{4ead}\x{5df7}",
"\x{6559}\x{5de5}\x{8def}\x{5858}\x{6cb3}\x{8def}\x{53e3}",
"\x{5927}\x{5173}\x{6865}\x{897f}",
"\x{957f}\x{4e50}\x{8def}",
"\x{4e8c}\x{7eba}\x{673a}\x{603b}\x{5382}",
"\x{6c88}\x{5858}\x{6e7e}",
"\x{5584}\x{8d24}\x{793e}\x{533a}",
"\x{5584}\x{8d24}\x{575d}",
"\x{768b}\x{4ead}\x{575d}",
"\x{674e}\x{738b}\x{6865}",
"\x{8881}\x{5bb6}\x{6751}",
"\x{5f20}\x{5bb6}\x{56ed}",
"\x{676d}\x{73bb}",
"\x{7126}\x{5316}\x{5206}\x{5382}",
"\x{6c88}\x{5bb6}\x{6865}",
"\x{6bdb}\x{7af9}\x{5c71}",
"\x{8584}\x{677f}\x{5206}\x{5382}",
"\x{5218}\x{6587}\x{6751}"
]; 111111111111111
Wide character in print at y1.pl line 31.
黄龙体育中心
												

perl 解json数组的更多相关文章

  1. perl 处理json 数组格式

    [root@dr-mysql01 ~]# cat a1.pl use Encode; use JSON; use URI::Escape; use LWP::Simple; my $host = &q ...

  2. perl malformed JSON string, neither tag, array, object, number, string or atom, at character offset

    [root@wx03 ~]# cat a17.pl use JSON qw/encode_json decode_json/ ; use Encode; my $data = [ { 'name' = ...

  3. [转]用GSON 五招之内搞定任何JSON数组

    关于GSON的入门级使用,这里就不提了,如有需要可以看这篇博文 <Google Gson的使用方法,实现Json结构的相互转换> ,写的很好,通俗易懂. 我为什么写这篇文章呢?因为前几晚跟 ...

  4. perl 读取json 格式的文件

    使用JSON 模块中的 decode_json 函数,将json文件中的数据解码为perl 中的对象,然后进行处理 代码如下: #!/usr/bin/env perl use JSON; use En ...

  5. Elasticsearch-PHP 处理JSON数组和对象

    PHP中处理JSON数组和对象 客户端有一些混淆的资源是围绕着JSON的数组和对象,以及如何在PHP中指定它们.特别是,问题是由空对象和空数组导致的.这篇文章回告诉你一些在Elasticsearch ...

  6. [转] Android:用GSON 五招之内搞定任何JSON数组

    [From] http://www.open-open.com/lib/view/open1472632967912.html 写在前面 关于GSON的入门级使用,这里就不提了,如有需要可以看这篇博文 ...

  7. perl 引用(数组和hash引用) --- perlreftut - Mark 的一个简单的'引用'教程 ---Understand References Today. --Mark Jason Dominus, Plover Systems (mjd-perl-ref+@plover.com)

    https://blog.csdn.net/fangwei1235/article/details/8570886 首页 博客 学院 下载 论坛 APP 问答 商城 活动 VIP会员 招聘 ITeye ...

  8. 文件缓存(配合JSON数组)

    1.  写入缓存:建立文件夹,把list集合里面的数组转换为JSON数组,存入文件夹2.  读取缓存:把JSON数组从文件夹里面读取出来,然后放入list集合,返回list集合 private fin ...

  9. Json数组追加数据

    背景:在做一个购物车的时候,点击第一个商品,然后存入一个json数组中,点击第二个商品的时候,又继续在json数组中追加,代码如下: <script type="text/javasc ...

随机推荐

  1. python基础(三)

    set集合 set集合创建 #方式1: se = {'} #与字典类似dict1 = {'k1','v1','k2','v2'} #方式2: se = set() #创建一个空的集合 list1 = ...

  2. svn检出maven工程到eclipse里面,部署到tomcat的步骤

    1. 首先import project from svn 2.检出项目后,如果是多模块的maven项目,在子模块右击,import as project 3.右击项目,properties->d ...

  3. Android项目记录点滴

    服务器端:(根据Apache POI库函数其中SlideShow表示PPT文档,Slide表示某一张幻灯片) 1.先把电脑中的PPT文件读入到一个字节数组中.(输入流-->字节数组-->输 ...

  4. Git 操作常用命令

    Git使用 1. git pull    更新服务器代码到本地a). git pull origin master是将origin这个版本库的代码更新到本地的master主分支 2. git push ...

  5. [Django] html 前端页面jQuery、图片等路径加载问题

    严格的说这个话题应该属于一个html前端路径加载问题.为了实现一个局部更新页面的功能,简单了解了一下Ajax.Ajax是一个为了实现浏览器和服务器异步通信功能的模块.严格来说不是一个新的语言,只是JS ...

  6. MAC 下使用ipv6、ipv4观看电视、网络电视

      换了mac book,ipv6电视却看不了了,为了看电视,只要自己动手了. 关于ipv6是啥和哪里有ipv6这里就不说了,找度娘吧. 我们观看IPv6视频直播信号有两种,一种是mms协议,另外一种 ...

  7. Sass 的基本语法规则

    转自:http://www.cnblogs.com/qqloving/p/3676852.html 自从发现可编程的css语法 Sass和基于Sass的css库compass 一个给我的感觉像c# 另 ...

  8. uva 10972 RevolC FaeLoN cdoj 方老师和农场

    //自己写的第一发tarjan 解:先进行双连通分解并缩点,分解后一定是一颗树,设叶节点个数为n那么答案就是(n+1)/2 关于双连通分量求解:在跑tarjan时判断每个点连向父节点的边是否是桥,如果 ...

  9. c语言结构体排序示例

    设计性实验编程实现对学生成绩表的相关信息排序.实验要求:⑴ 建立一个由n个学生的考试成绩表,每条信息由学号.姓名和分数组成.⑵ 按学号排序,并输出排序结果.⑶ 按分数排序,分数相同的则按学号有序,并输 ...

  10. c++犯过的严重错误

    1.if(num == 0)写成了if(num = 0)导致软件运行一直崩溃且找不到原因,浪费了很大的代价,以后我写这种语法的时候一直写if(0 == num) 2.if (sting.find(&q ...