Board logo

标题: [原创教程] [示例][LWP::UserAgent]Perl登录论坛并下载个人信息 [打印本页]
作者: 523066680    时间: 2014-8-8 20:42     标题: [示例][LWP::UserAgent]Perl登录论坛并下载个人信息

  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



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2