perl 解json数组

最新推荐文章于 2023-12-11 20:00:06 发布

scan724

最新推荐文章于 2023-12-11 20:00:06 发布

阅读量830

点赞数

分类专栏： mojo

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/50983754

版权

mojo 专栏收录该内容

19 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何使用Perl从HTTP API获取JSON数据，并将其解析为数组。通过LWP::UserAgent模块发送请求，获取到JSON响应，然后使用decode_json函数将JSON内容转化为Perl数组。

摘要由CSDN通过智能技术生成

<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 = "

了解本专栏