Perl POST 方法
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>
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