Chinaunix

标题: 如何自动登录一个web系统，然后post提交数据 [打印本页]

---

作者: 99超人    时间: 2016-11-26 15:04
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: Perl_Er    时间: 2016-11-26 18:43

1. use strict;
   
2. use warnings;
   
3. use utf8;
   
4. use LWP::UserAgent;
   
5. use Data::Dumper;
   
6. 
   
7. my $ua = LWP::UserAgent->new;
   
8. $ua->timeout(10);
   
9. $ua->env_proxy;
   
10. 
    
11. my $req = HTTP::Request->new(GET => "http://rabbitmq01.sample.net:15672/api/vhosts");
    
12. $req->authorization_basic('guest', 'guest');
    
13. 
    
14. print $ua->request($req)->as_string;
    

复制代码

---

作者: Perl_Er    时间: 2016-11-26 18:46

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use HTTP::Request;
   
6. use HTTP::Cookies;
   
7. use LWP::UserAgent;
   
8. 
   
9. my $url = 'http://passport.renren.com/PLogin.do';
   
10. 
    
11. # 用来存 cookie
    
12. my $cookie_jar = HTTP::Cookies->new(
    
13.     file     => "./acookies.lwp",
    
14.     autosave => 1,
    
15. );
    
16. 
    
17. # 给处理 cookie 的对象放到 LWP::UserAgent 中来处理 cookie
    
18. # 登陆中
    
19. my $ua      = LWP::UserAgent->new;
    
20. my $cookies = $ua->cookie_jar($cookie_jar);
    
21. $ua->agent('Mozilla/9 [en] (Centos; Linux)');
    
22. my $res = $ua->post(
    
23.     $url,
    
24.     [
    
25.         email    => 'username@gmail.com',
    
26.         password => 'passwd',
    
27. #        origURL  => 'http//www.renren.com/home',
    
28. #        domain   => 'renren.com',
    
29.     ],
    
30. );
    
31. 
    
32. #Now you can access your protected content
    
33. 
    
34. #$res =$ua->get('http://www.renren.com/home.do');
    
35. $res = $ua->get(
    
36.     'http://blog.renren.com/blog/702740495/932392877?myblog'
    
37. );
    
38. print $res->content();
    

复制代码

---

作者: 99超人    时间: 2016-11-27 06:42
提示: 作者被禁止或删除 内容自动屏蔽

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2