注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

FY

Johnson 's Blog

 
 
 

日志

 
 

登录论坛的脚本  

2012-06-11 20:51:16|  分类: perl |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

我想用perl登录小木虫论坛获取一些只有登录才能查看的页面。

登录页面:
http://emuch.net/bbs/logging.php?action=login
用户名wotest 密码pswt

登录后获取这个页面
http://emuch.net/bbs/memcp.php?action=getcredit
和这个页面
http://emuch.net/bbs/space.php?uid=1843357

######################################################################
  1. use strict;
  2. use LWP::UserAgent;
  3. my $ua = LWP::UserAgent->new;
  4. my $response = $ua->get("http://emuch.net/bbs/logging.php?action=login&username=wotest&password=pswt&cookietime=31536000&loginsubmit=%BB%E1%D4%B1%B5%C7%C2%BC");
  5. #下面这句很重要!!,保存Cookie!!
  6. $ua->default_header('Cookie' => $response->header("Set-Cookie")=~/(.+?);/);
  7. print $ua->get("http://emuch.net/bbs/memcp.php?action=getcredit")->decoded_content;
  8. print $ua->get("http://emuch.net/bbs/space.php?uid=1843357")->decoded_content;
复制代码

####################################################################
用HttpWatch分析的。。
HttpWatch.jpg
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

  4. use HTTP::Request;
  5. use HTTP::Cookies;

  6. use LWP::UserAgent;

  7. my $url         = 'http://emuch.net/bbs/logging.php?action=login';

  8. # 用来存 cookie
  9. my $cookie_jar  = HTTP::Cookies->new(
  10.         file        => "./acookies.lwp",
  11.         autosave    => 1,
  12.         );

  13. # 给处理 cookie 的对象放到 LWP::UserAgent 中来处理 cookie
  14. # 登陆中
  15. my $ua      = LWP::UserAgent->new;
  16. my $cookies = $ua->cookie_jar($cookie_jar);
  17. #$ua->agent('Mozilla/9 [en] (Centos; Linux)');
  18. my $res     = $ua->post( $url,
  19.         [
  20.             username     => 'wotest',
  21.             password    => 'pswt',
  22.             cookietime =>'31536000',
  23.            loginsubmit => '%BB%E1%D4%B1%B5%C7%C2%BC'
  24.         ],
  25.     );

  26. print $res =$ua->get('http://emuch.net/bbs/memcp.php?action=getcredit')->decoded_content;
  27. print $res =$ua->get('http://emuch.net/bbs/space.php?uid=1843357')->decoded_content;
复制代码
  评论这张
 
阅读(489)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018