|
|
|
|
| LWP为什么还是登录不了这个网页，GET和POST都不行。 |
  LWP为什么还是登录不了这个网页，GET和POST都不行。 - xmlfan [ 2004-07-16 03:56 | 1,084 byte(s)]
Re: LWP为什么还是登录不了这个网页，GET和POST都不行。 - Agent2002 [ 2004-07-16 17:07 | 1,136 byte(s)]
POST还不行。 - xmlfan [ 2004-07-19 21:39 | 90 byte(s)]
Re: POST还不行。 - bjcbd [ 2004-07-25 12:08 | 448 byte(s)]
|
|
|
|
[Original]
[Print]
[Top]
|
#!/usr/bin/perl
use strict;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
use HTTP::Response;
use HTTP::Request::Common qw(POST);
my $ua = new LWP::UserAgent;
$ua->cookie_jar(HTTP::Cookies->new(file=>'mycookies.txt',autosave=>1));
my $request = new HTTP::Request('get','http://www.e-medicum.com/registracion/login.php?useario=susanalin&pass=hipocrates&recuerdenme=86400000&hayCookies=si');
#my $request = POST 'http://www.e-medicum.com/registracion/login.php',
#[useario => 'susanalin', pass => 'hipocrates', recuerdenme => '86400000', hayCookies => 'si'];
my $response = $ua->request($request);
if ($response->is_success) {
print $response->content;
} else {
print $response->error_as_HTML;
}
|
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
我使用LWP::Simple中的get和getprint函数，可以成功登录。
我测试了你贴出的代码，得到下面的输出
<HTML>
<HEAD><TITLE>An Error Occurred</TITLE></HEAD>
<BODY>
<H1>An Error Occurred</H1>
501 Method Not Implemented
</BODY>
</HTML>
这表明GET确实不行。但我发现POST是可以的。我注释了下面这行代码：
my $request = new HTTP::Request('get','http://www.e-medicum.com/registracion/login.php?useario=susanalin&pass=hipocrates&recuerdenme=86400000&hayCookies=si');
并取消了下面这两行代码的注释：
my $request = POST 'http://www.e-medicum.com/registracion/login.php',
[useario => 'susanalin', pass => 'hipocrates', recuerdenme => '86400000', hayCookies => 'si'];
程序运行成功了。不过生成的页面好像来自非英语国家（看不懂呀！）
注：我使用的是ActivePerl 5.8.4。
|
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
这和你请求的login程序有关系，可能是在里面加了其它的cookie验证。
比如：
1，请求登陆form的时候，系统给了你一个cookie
2，提交登陆表单-->登陆，程序会校验是否存在1中给你的cookie。
你现在这样做是不能通过是正常的，因为你的browser里面并没有那个cookie。
我不知道LWP是否有cookie管理的能力，你自己查查看，如果有，可以先请求登陆form，然后再请求login程序进行登陆 认证。
|
|
|
[Original]
[Print]
[Top]
|
|
|
声明: 本页内容为中国Linux论坛的内容镜像，文章的版权以及其他所有的相关权利属于中国Linux论坛和相应文章的作者，如果转载，请注明文章来源及相关版权信息。