WWW::Mechanize登錄腳本問(wèn)題

stdtd

不知哪里沒(méi)設(shè)置好, 也換了好多個(gè)agent，但這個(gè)小腳本老是登錄不了，，

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";
    

復(fù)制代碼

$mech->success 的返回結(jié)果是1，但$mech->content 中有“密碼輸入錯(cuò)誤”這樣的提示:

1. <p style="color: red; font-weight: bold;" id="loginError">密碼輸入錯(cuò)誤！</p>

復(fù)制代碼

可那用戶名和密碼肯定是正確的啊，按正常方式打開(kāi)瀏覽器能成功登錄。

下面是登錄頁(yè)面的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">自動(dòng)登錄</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>
    

復(fù)制代碼

在正常的登錄流程中，瀏覽器向服務(wù)器提交的信息如下：

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
    

復(fù)制代碼

按網(wǎng)上的方法測(cè)試了好久都沒(méi)登錄成功  
請(qǐng)高手們指點(diǎn)指點(diǎn)啊，
謝謝��！

cai120120-pb

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