LWP::UserAgent 登陆HTTPS不成功

如题,我用以前一个老大帮忙写的Perl脚本来登陆https 一直登陆失败,这是post的数据

下载 (4.48 KB)

2010-11-24 09:38

https://www.test.com/passport/?pid=UserCenter    这是登陆框URL

1. 
   
2. #!/use/bin/perl -w
   
3. use strict;
   
4. use warnings;
   
5. use Data::Dumper;
   
6. use HTTP::Cookies;
   
7. use LWP::UserAgent;
   
8. my $local_dir = '/data';
   
9. my $login_url = 'https://www.test.com/Passport/LogOnSubmit?';
   
10. my %login_form = (
    
11.         'username' => 'admin,
    
12.         'password' => '111111',
    
13.         'UserCenter'=>'UserCenter',
    
14.         'validateCode'=>'jbjk',
    
15.         'loginType'=> '0',
    
16. 
    
17. );
    
18. my $ie = LWP::UserAgent->new();
    
19. # 获得COOKIE
    
20. my $response = $ie->get( $login_url );
    
21. my $cookie;
    
22. if ( $response->is_success ) {
    
23.         my $cookie_jar = HTTP::Cookies->new;
    
24.         $cookie_jar->extract_cookies($response);
    
25.         my $cookie_temp = $cookie_jar->as_string();
    
26.         ($cookie) = ($cookie_temp =~ /.*?(ASP.NET_SessionId=.*?)\;.*?/i);
    
27.         #($cookie) = ($cookie_temp =~ /.*?(PHPSESSID=.*?)\;.*/i);
    
28. }
    
29. # 登录
    
30. $ie->default_header('Cookie'=>$cookie,'Referer'=>$login_url);
    
31. $response = $ie->post( $login_url, \%login_form);
    
32. print Dumper($response->as_string);
    
33. #my %hash;
    
34. #foreach ( split(/\n/,$response->as_string) ) {
    
35. #        my ($key,$value) = split(/: /,$_);
    
36. #         $hash{$key} = $value;
    
37. #}
    
38. #if ( $hash{'Location'} ) {
    
39.         #print "login successful!\n";
    
40. #}
    
41. #else {
    
42.         #print "login error!\n";
    
43. #}
    
44. # 登录成功后页面请求
    
45. #$response = $ie->get('https://www.test.com/Passport/Tenants');
    
46. #$response = $ie->get($hash{'Location'});
    
47. #print $response;
    
48. #open(FH,">wewele.html");
    
49. #print FH $response->content;
    
50. #close FH;
    
51. #<>;

复制代码

作者: mitmax   发布时间: 2010-11-24

作者: 黑色阳光_cu   发布时间: 2010-11-24

作者: 黑色阳光_cu   发布时间: 2010-11-24