[root@dr-mysql01 ~]# cat x5.pl
use Encode;
use JSON;
use URI::Escape;
use LWP::Simple;
my $host = "http://ip.taobao.com/service/getIpInfo.php?ip=202.101.172.35";
my $content = get($host);
print "\$content is $content\n";
$content =~ s/\\u([0-9a-fA-F]{4})/pack("U",,hex($1))/eg;
print "\$content is $content\n";
use Data::Dumper;
my $json_out= Dumper($content);
print "\$json_out is $json_out\n"
You have mail in /var/spool/mail/root
[root@dr-mysql01 ~]# perl x5.pl
$content is {"code":0,"data":{"country":"\u4e2d\u56fd","country_id":"CN","area":"\u534e\u4e1c","area_id":"300000","region":"\u6d59\u6c5f\u7701","region_id":"330000","city":"\u676d\u5dde\u5e02","city_id":"330100","county":"","county_id":"-1
16进制转换为中文字符串
最新推荐文章于 2023-09-22 11:30:06 发布