模拟登录友盟抓数据的问题

kiwivip

今天想把登友盟看数据的动作自动化一下，于是模拟登录 www.umeng.com 下面的代码不管密码对错，返回都是
‘500 Internal Server Error’ ，连 401都得不到，请大大们帮忙看看，thanks。

1. my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }) ;
   
2. $ua->protocols_allowed( [ 'http', 'https'] );
   
3. $ua->agent("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.63 Safari/537.36");
   
4. $ua -> default_header(
   
5.                 'Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8' ,
   
6.                 'Accept-Language' => 'zh-CN,zh;q=0.8,en;q=0.6,zh-TW;q=0.4,ko;q=0.2' ,
   
7.                 'Host' => 'www.umeng.com' ,
   
8.                 'Origin' => 'https://www.umeng.com' ,
   
9.                 'Cache-Control' => 'max-age=0' ,
   
10.                 'Content-Type' => 'application/x-www-form-urlencoded' ,
    
11.                 'Referer' => 'https://www.umeng.com/sso/login?service=http://www.umeng.com/users/login_redirect'
    
12. );
    
13. my $cookie_jar = HTTP::Cookies->new(file=>'lwp_cookies.txt',autosave=>1 );
    
14. $ua->cookie_jar($cookie_jar);
    
15. 
    
16. my $page = $ua->request(POST 'https://www.umeng.com/sso/login',{
    
17.                     'username'=>$email,
    
18.                     'password'=>$password,
    
19.                     'service'=>'http://www.umeng.com/users/login_redirect'
    
20. });
    
21. say $page->status_line ;

复制代码

kiwivip

哪位有时间帮我看看呗～