Perl 判断字符串为空

最新推荐文章于 2022-11-13 13:40:10 发布

scan724

最新推荐文章于 2022-11-13 13:40:10 发布

阅读量3.8k

点赞数

分类专栏： Perl 大骆驼

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

版权

Perl 大骆驼专栏收录该内容

72 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客介绍了如何在Perl中处理JSON字符串，通过正则表达式匹配获取'city'的值，并移除双引号。示例代码展示了从一个包含地理位置信息的JSON字符串中提取城市名称的过程。

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

[oracle@jhoa ip_sec]$ cat 2.pl 
$_='{"code":0,"data":{"country":"台湾","country_id":"TW","area":"","area _id":"","region":"台湾省","region_id":"TW_01","city":"","city_id":"","county":"" ,"county_id":"","isp":"","isp_id":"-1","ip":"125.227.116.234"}}';
if ($_ =~ /(.*?)"city":(.*?),(.*?)/){$city = $2};
$city =~ s/"//g ;
print "\$city is $city\n";
if ( ($city) ){print "1111111\n"};
[oracle@jhoa ip_sec]$ perl 2.pl 
$city is