[root@dr-mysql01 test]# cat get.pl
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");
my $response = $ua->get('http://mp.weixin.qq.com/s?__biz=MzA5NTcxNzY3Nw==&mid=213258239&idx=1&sn=7cfaff263b64209e43756482d5f7333e&scene=1#rd');
if ($response->is_success) {
print $response->decoded_content; # or whatever
}
else {
die $response->status_line;
}
---------------------------------------------------------------------------------------------------------------------------------------------------
use Encode;
use Encode::CN;
use URI::Escape;
use LWP::Simple;
$host = "http://http://mp.weixin.qq.com/s?__biz=MzA5NTcxNzY3Nw==&mid=213258239&idx=1&sn=7cfaff263b64209e43756482d5f7333e&scene=1#rd";
$content = get($host);
print "\$content is $content\n";
http://mp.weixin.qq.com/s?__biz=MzA5NTcxNzY3Nw==&mid=213258239&idx=1&sn=7cfaff263b64209e43756482d5f7333e&scene=1#rd
对$ua->agent("Mozilla/8.0"); 有判断
网站对$ua->agent("Mozilla/8.0")的校验
转载本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
Qt OPC UA初体验
qtopcua源码编译、通信示例、流程分析
qtopcua OPC UA 工业自动化 -
user-agent(Mozilla/4.0,Opera/9.80 等)问题
说明:蓝色=命令名称 浅绿=命令参数 浅蓝=选项 紫色=目录 系统环境:CentOS 6.2 x86
Mozilla/4.0 Mozilla/4.0 (compati -
Mozilla研究—mozilla中的设计亮点
Mozilla研究—mozilla中的设计亮点 转载
mozilla extension 浏览器 跨平台 编程 -
MySQL 8.0对count(*)的优化
count(*)统计技术的操作,不同的所以然...
mysql 数据库 MySQL sql -
为什么每个浏览器的 User-Agent 都有 Mozilla 字样?—— User-Agent混乱发展史
在解释 “为什么每个浏览器的 User-Agent 都有 Mozilla 字样?” 之前先贴一段目前常见的浏览器Use
User-Agent User-Agent发展历史 safari html -
yaml在线校验网站
http://yaml-online-parser.appspot.com/
yaml在线校验网站 yaml在线校验 yaml校验 yaml yaml检查