Wide character in print at a2.pl line 返回json 需要encode_utf8
2024-10-19 01:20:03
centos6.5:/root/test#cat a2.pl
use Net::SMTP;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use JSON;
use File::Temp qw/tempfile/;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
use Data::Dumper;
my $CurrTime = time2iso(time());
my $dis_mainpublish='中均资本';
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
my $now = time();
$ua->agent('Mozilla/5.0');
my $cookie_jar = HTTP::Cookies->new( file => 'lwp_cookies.txt',
autosave => 1,
ignore_discard => 1
);
$ua->cookie_jar($cookie_jar);
my $response = $ua->get("https://www.zjcap.cn/web/noauth?method=%2Fproduct%2Flist&duration=&entryUnit=&productType=1&status=&yield=&productName=&pageNum=1&pageSize=6&_=1468156037154"); if ($response->is_success) {
$r = $response->decoded_content;
print "\n";
}
else
{
die $response->status_line;
};
#my $r=encode_utf8($r);
my $hash = decode_json ( $r );
print "11111111111111111111\n";
print "产品列表\n";
print $hash->{data}->{dataList}->[0]->{name};
print "\n";
centos6.5:/root/test#perl a2.pl 11111111111111111111
产品列表
Wide character in print at a2.pl line 40.
爱晚-融通宝第9期 因为decode_json必须是unicode字符 ,返回的json数据前需要转成unicode my $r=encode_utf8($r); centos6.5:/root/test#cat a2.pl
use Net::SMTP;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use JSON;
use File::Temp qw/tempfile/;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
use Data::Dumper;
my $CurrTime = time2iso(time());
my $dis_mainpublish='中均资本';
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
my $now = time();
$ua->agent('Mozilla/5.0');
my $cookie_jar = HTTP::Cookies->new( file => 'lwp_cookies.txt',
autosave => 1,
ignore_discard => 1
);
$ua->cookie_jar($cookie_jar);
my $response = $ua->get("https://www.zjcap.cn/web/noauth?method=%2Fproduct%2Flist&duration=&entryUnit=&productType=1&status=&yield=&productName=&pageNum=1&pageSize=6&_=1468156037154"); if ($response->is_success) {
$r = $response->decoded_content;
print "\n";
}
else
{
die $response->status_line;
};
my $r=encode_utf8($r);
my $hash = decode_json ( $r );
print "11111111111111111111\n";
print "产品列表\n";
print $hash->{data}->{dataList}->[0]->{name};
print "\n";
centos6.5:/root/test#perl a2.pl 11111111111111111111
产品列表
爱晚-融通宝第9期
最新文章
- RPC原理及RPC实例分析
- 51Nod 1079 中国剩余定理 Label:数论
- 网页闯关游戏(riddle webgame)--仿微信聊天的前端页面设计和难点
- 20145215《Java程序设计》课程总结
- 教你21天学会C++ （有图有真相）
- 最小化Spring XML配置
- json转换（c#后台生成json的方法）
- asp.net core mvc剖析：路由
- Java学习--泛型
- STM32L011D4 ----- 低功耗
- ncnn编译安装
- 怎样从外网访问内网Apache HTTP Server
- json文件不能有注释
- IDEA上传一个项目到github
- [Java笔记]面向对象-单例模式
- Git冲突与解决方法
- 史上最全 Css Hack汇总
- selenium（二）查找定位目标 ID XPATH CSS 操作目标
- 算法笔记_121:蓝桥杯第六届省赛（Java语言C组部分习题）试题解答
- URAL 2078~2089