perl unicode utf-8 \x转换
2016-04-12 16:08
253 查看
[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","isp":"\u7535\u4fe1","isp_id":"100017","ip":"202.101.172.35"}} Wide character in print at x5.pl line 12. $content is {"code":0,"data":{"country":"中国","country_id":"CN","area":"华东","area_id":"300000","region":"浙江省","region_id":"330000","city":"杭州市","city_id":"330100","county":"","county_id":"-1","isp":"电信","isp_id":"100017","ip":"202.101.172.35"}} $json_out is $VAR1 = "{\"code\":0,\"data\":{\"country\":\"\x{4e2d}\x{56fd}\",\"country_id\":\"CN\",\"area\":\"\x{534e}\x{4e1c}\",\"area_id\":\"300000\",\"region\":\"\x{6d59}\x{6c5f}\x{7701}\",\"region_id\":\"330000\",\"city\":\"\x{676d}\x{5dde}\x{5e02}\",\"city_id\":\"330100\",\"county\":\"\",\"county_id\":\"-1\",\"isp\":\"\x{7535}\x{4fe1}\",\"isp_id\":\"100017\",\"ip\":\"202.101.172.35\"}}";
相关文章推荐
- perl unicode utf-8 \x转换
- HTML 5 Canvas vs. SVG
- 为什么很多网站的内容储存用别的域名?有什么好处?
- BeagleBoneBlack学习(3)——U-Boot中的I2C驱动分析
- 第七周项目2-友元类(1)
- Fragment创建多个fragment实例
- Islands Travel 微软2016校园招聘笔试题
- Android中的Intent Filter匹配规则简介
- hello world
- Codeforces--660D--Number of Parallelograms(几何性质)(组合数)
- python写appium测试用例找控件的方法总结
- 【fsck】检查并修复linux文件系统
- 快速离散傅里叶变中的倒位序号问题
- 暴力撤销TFS
- 了解ANSI编码
- 文件管理添加删除图片,视频等多媒体文件时,图库不会即时更新的问题
- file_get_contents();浏览器访问
- Android性能优化
- 2016年阿里巴巴、腾讯等公司暑期实习面试经验分享
- 正则表达式语法