UserAgent->request取不到内容会是什么原因?

qinglangee

1. my $indexUrl="https://passport.baidu.com/?login";
   
2. my $request = new HTTP::Request GET => $indexUrl;
   
3. my $response = $browser->request($request);

复制代码

这段代码执行后 $response->is_success返回0
$response->header 打印出来是

1. Content-Type: text/plain
   
2. Client-Date: Thu, 10 Feb 2011 07:06:57 GMT
   
3. Client-Warning: Internal response

复制代码

indexUrl用别的值的时候没有问题

我是想写个百度贴吧发帖的脚本,只是登录都登不上 ,是不是百度在这方面做了限制

有没有前人用perl做过这样的事情,有知道的同志给个链接看看,不是perl源码的就算了

shouxiaoqiang

因为agent的header信息太少了，会直接被对方给屏蔽的。