WWW::Mechanize登录脚本问题

stdtd

不知哪里没设置好, 也换了好多个agent，但这个小脚本老是登录不了，，

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use WWW::Mechanize;
   
5. use Encode;
   
6. 
   
7. my $url = "http://passport.115.com/?ac=login&tpl=pc";
   
8. my $http_user_agent = 'Mozilla/5.0 (iPad; U; CPU OS 3_2_1 like Mac OS X; en-us) AppleWebKit/531.21.10 (KHTML, like Gecko) Mobile/7B405';
   
9. my $mech = WWW::Mechanize->new( cookie_jar => {} );
   
10. $mech->add_header( 'User-agent' => $http_user_agent);
    
11. $mech->get($url);
    
12. $mech->submit_form(
    
13.         form_id => 'loginForm',
    
14.         fields    => {
    
15.                 'login%5Baccount%5D' => 'okabc123',
    
16.                 'login%5Bpasswd%5D' => 'abc123ha',
    
17.                 'goto' => 'http://115.com'
    
18.                 },
    
19. );
    
20. 
    
21. print "content: \n".encode("utf-8",$mech->content)."\n\n";
    
22. print "isSuccess: ".$mech->success."\n";
    

复制代码

$mech->success 的返回结果是1，但$mech->content 中有“密码输入错误”这样的提示:

1. <p style="color: red; font-weight: bold;" id="loginError">密码输入错误！</p>

复制代码

可那用户名和密码肯定是正确的啊，按正常方式打开浏览器能成功登录。

下面是登录页面的form:

1. 
   
2. <form rel="right" action="?ac=login&amp;tpl=pc&amp;app=u" id="loginForm" method="post">
   
3.     <input type="hidden" value="http://115.com" name="goto">
   
4.     <div class="mt20 pr">
   
5.         <label for="username" class="text-label gray pa" style="display: none;">您的邮箱</label>
   
6.         <input type="text" data-error="邮箱不能为空！" id="username" name="login[account]" class="text required">
   
7.         <!--<div class="fill-tip pa">
   
8.             <span><b class="sign-bak ib"></b><label class="fl">用户名不能为空！</label></span>
   
9.         </div>-->
   
10.     </div>
    
11.     <div class="mt20 pr">
    
12.         <label for="password" class="text-label gray pa" style="display: none;">输入密码</label>
    
13.         <input type="password" data-error="密码不能为空！" id="password" name="login[passwd]" class="text required">
    
14.     </div>
    
15.     <div class="mt20 clearfix checkbox-parent">
    
16.         <span class="fl">
    
17.             <input type="checkbox" name="login[time]" id="autoLogin"><label for="autoLogin">自动登录</label>
    
18.         </span>
    
19.     </div>
    
20.     <div class="mt20">
    
21.         <input type="submit" value="登录" class="btn  sign-bak login"> <a class="ml10" target="_blank" href="/?ct=forgot_passwd">忘记密码？</a>
    
22.     </div>
    
23. </form>
    

复制代码

在正常的登录流程中，浏览器向服务器提交的信息如下：

1. 
   
2. Host = passport.115.com
   
3. User-Agent = Mozilla/5.0 (Windows NT 5.1; rv:7.0.1) Gecko/20100101 Firefox/7.0.1
   
4. Accept = text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
   
5. Accept-Language = en-us,en;q=0.5
   
6. Accept-Encoding = gzip, deflate
   
7. Accept-Charset = ISO-8859-1,utf-8;q=0.7,*;q=0.7
   
8. Connection = keep-alive
   
9. Referer = http://passport.115.com/?ac=login&tpl=pc
   
10. Content-Type = application/x-www-form-urlencoded
    
11. Content-Length = 80
    
12. POSTDATA = goto=http%3A%2F%2F115.com&login%5Baccount%5D=okabc123&login%5Bpasswd%5D=abc123ha
    

复制代码

按网上的方法测试了好久都没登录成功  
请高手们指点指点啊，
谢谢！！

cai120120-pb

'login[account]' => 'okabc123',
                'login[passwd]' => 'abc123ha',
就可以了