[示例][LWP::UserAgent]Perl登录论坛并下载个人信息

523066680

1. #!/usr/bin/perl
   
2. use strict;
   
3. use LWP::UserAgent;
   
4. 
   
5. my $ua = LWP::UserAgent->new;
   
6. $ua->cookie_jar( {} );
   
7. my $res= $ua->post('http://bbs.bathome.net/logging.php?action=login',
   
8.     [
   
9.         loginsubmit=>"yes",
   
10.         floatlogin=>"yes",
    
11.         loginfield=>"username",
    
12.         username=>"账号",
    
13.         password=>"密码",
    
14.         questionid=>N,
    
15.         answer=>"提问答案",
    
16.         cookietime=>"2592000",
    
17.     ],
    
18. );
    
19. 
    
20. $res = $ua->get('http://bbs.bathome.net/memcp.php');
    
21. 
    
22. open(FILE, '>bathome.html');
    
23. print FILE $res->content;
    
24. close FILE;

复制代码

post里面的信息每个网站不尽相同，可以手动登录，使用火狐live http headers插件获取POST信息，
然后依样画葫芦，修改代码即可。

登录BATHOME之前打开live http headers插件，登陆后获取POST信息大致如下（适当做了替换）
#POST /logging.php?action=login&loginsubmit=yes&floatlogin=yes&inajax=1
# formhash=161fb4b8&referer=http%3A%2F%2Fbbs.bathome.net%2Fthread-30857-1-1.html
# &loginfield=username
# &username=523066680
# &password=***人为屏蔽***
# &questionid=提问问题的编号
# &answer="答案"
# &cookietime=2592000