perl 处理json 数组格式

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

scan724

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

阅读量2.8k

点赞数

分类专栏： perl LWP

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

版权

perl LWP 专栏收录该内容

111 篇文章 33 订阅 ¥39.90 ¥99.00

订阅专栏

本文将介绍如何在Perl中解析和操作JSON数组格式的数据，包括导入JSON模块、解码JSON字符串、遍历和修改JSON数组等内容，为Perl开发者提供处理JSON数据的实用技巧。

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

[root@dr-mysql01 ~]# cat a1.pl 
use Encode;  
use JSON;   
use URI::Escape;  
use LWP::Simple;  
my $host = "http://192.168.32.101:3000/api/getcode?env=zj&phone=18072722237";  
my $content = get($host);  
print "\$content  is $content\n";  
  
  
print "111111111111111111111\n";
print $content->[0]->[1];
print "\n";





print "3333333333333333333333333\n";
my $array = decode_json($content);
print $array->[0]->[1];
print "\n";


[root@dr-mysql01 ~]# perl a1.pl 
$content  is [["2016-04-27 13:04:30,325","您的验证码为956047，本验证码5分钟内有效。 ","to phoneNo:18072722237"],["2016-04-27 13:05:58,839","您的验证码为161980，本验证码5分钟内有效。 ",

了解本专栏