perl自动登录网页，一整夜没搞定，求帮助

gknhjqx

我想实现自动登录以下网页的功能：http://bbs.ep-music.net/forum.php

#!/usr/bin/perl
use warnings;
use strict;

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Cookies;

my $url = 'http://bbs.ep-music.net/forum.php';
my $cookie_jar = HTTP::Cookies->new(
    file       => "./cookies.lwp",
    autosave   => 1,
);
my $ua = LWP::UserAgent->new;
my $cookies = $ua->cookie_jar($cookie_jar);
$ua->agent("MyApp/0.1 ");
my $res = $ua->post( $url, [
        'username'  => 'perltest',
        'password'  => 'perltest',

    ],
);
print "Post Error!\n" unless $res->is_success;
my $redirect_to = $res->header('location');
my $req         = HTTP::Request->new(GET=>$redirect_to);
$cookie_jar->add_cookie_header($req);
my $new_res     = $ua->request($req);

`curl 'http://bbs.ep-music.net/forum.php' > test.txt`;

理论上登陆后我curl出来的应该是有退出选项的界面，但是怎么搞都不行，帮我把上面的代码改成能用的吧，万谢啊

iakuf

1. #!/usr/bin/perl
   
2. use strict;
   
3. use v5.010;
   
4. use Mojo::UserAgent;
   
5. 
   
6. my $ua = Mojo::UserAgent->new;
   
7. 
   
8. my $tx = $ua->post_form('http://bbs.ep-music.net/member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&inajax=1' => { username => 'perltest', password => 'perltest' });
   
9. say $ua->get('http://bbs.ep-music.net/forum.php')->res->body;

复制代码

mcshell

回复 1# gknhjqx

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. use HTTP::Request;
   
6. use HTTP::Cookies;
   
7. 
   
8. use LWP::UserAgent;
   
9. 
   
10. my $url         = 'http://bbs.ep-music.net/member.php';
    
11. 
    
12. my $cookie_jar  = HTTP::Cookies->new(
    
13.         file        => "./cookies.lwp",
    
14.         autosave    => 1,
    
15.         );
    
16. 
    
17. my $ua      = LWP::UserAgent->new;
    
18. my $cookies = $ua->cookie_jar($cookie_jar);
    
19. $ua->agent('Mozilla/9 [en] (Centos; Linux)');
    
20. my $res     = $ua->post( $url,
    
21.         [
    
22.             username     => 'perltest',
    
23.             password    => 'perltest',
    
24.             fastloginfield   =>'username',
    
25.         ],
    
26.     );
    
27. $res =$ua->get('http://bbs.ep-music.net/forum.php');
    
28. print $res->content();
    

复制代码

你post入口找错了。用HttpWatch分析数据。

erpeng_1988

回复 1# gknhjqx

#!/usr/bin/perl
use warnings;
use strict;

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Cookies;

my $url = 'http://bbs.ep-music.net/member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&inajax=1';
my $cookie_jar = HTTP::Cookies->new(
                    file       => "./cookies.lwp",
                        autosave   => 1,
                );  
my $ua = LWP::UserAgent->new;
my $cookies = $ua->cookie_jar($cookie_jar);
$ua->agent("MyApp/0.1 ");
my $res = $ua->post( $url, [
                        username  => 'perltest',
                                password  => 'perltest',

                                    ]   
                );  
print "Post Error!\n" unless $res->is_success;
my $res1 =$ua->get('http://bbs.ep-music.net/forum.php');
print $res1->decoded_content,"\n";

你的入口地址没写对,如楼上所说,拿httpwatch看一下。再者,后边不用重定向

   

erpeng_1988

这样写简洁.回复 2# iakuf


   

gknhjqx

回复 2# iakuf

我就是看你的blog写的，我就想用原来的模块，能不能帮我改一下原来的代码，cookie那段不行
   

gknhjqx

回复 4# erpeng_1988

不跳转怎么保持登陆呢，你楼上的那个代码还是没有实现登陆
   

iakuf

你为什么讲没有登陆，我的程序都能见到登陆后的信息了

1. say $ua->get('http://bbs.ep-music.net/forum.php')->res->dom->find("div#um a")->pluck('text');

复制代码

用户名，积分之类都能取到了。


perltest



设置
消息
提醒
模块管理

退出
积分: 81
Guitar-Member

gknhjqx

回复 8# iakuf

我说3楼的代码还是没登陆

你那段代码我没用过，能不能帮我用原来的模块实现一下
   

iakuf

回复 9# gknhjqx

不能。。。。有更加简单的，为什么不使用更加简单的。。。