前端之家收集整理的这篇文章主要介绍了
Perl 多个正则匹配，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
#$_='{"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"}}';
$_='{"code":0,"data":{"country":"中国","country_id":"CN","area":"华东","area_id":"300000","region":"浙江省","region_id":"330000","city":"湖州市","city_id":"330500","county_id":"-1","isp":"电信","isp_id":"100017","ip":"125.125.131.158"}}';
if ($_ =~ /(.*?)"region":(.*?),"region_id"(.*?)"city":(.*?),(.*?)/){
$a = $2;
$b = $4;
$a =~ s/"//g ;
$b =~ s/"//g ;
if ($b ){$city = $b;}else{
$city = $a;};
$city =~ s/"//g ;
print "\$city is $city\n";
}
