当前位置：首页 → 问答吧 → Perl POST 方法

Perl POST 方法

时间：2011-06-08

来源：互联网

use strict;
use LWP::Simple;
require LWP::UserAgent;

my $url = 'http://passport.csdn.net/UserLogin.aspx';
my $ua = LWP::UserAgent->new;
$ua->timeout(10);

my $response = $ua->post( $url,
['UserName' => 'liujunyu',
'password' => 'mypassword']
#用你自己的用户名密码试试。
);

my $content = undef;

if ( $response->is_success() ) {
$content = $response->{_content};
}else {
print "Not success ...\n\t$url\n";
}

结果如下：
Not success ...
http://passport.csdn.net/UserLogin.aspx

并没有成功登录csdn，POST方法并没有成功，请问为什么？

<html>
<head><title>403 Forbidden</title></head>
<body bgcolor="white">
<center><h1>403 Forbidden</h1></center>
<hr><center>nginx/0.7.68</center>
</body>
</html>

作者: liujunyu 发布时间: 2011-06-08

验证码都没有，能成功就怪了。

作者: iambic 发布时间: 2011-06-08

Perl POST 方法

热门阅读

热门下载