Perl WWW ::機械化證書

Question

我想使用WWW :: Mechanize從網站搜索內容，但要能夠做到這一點，我必須先使用我的註冊用戶名和密碼登錄，但我不能用這個碼。必須改變什麼才能成功提交表單。謝謝。

use strict; 
use warnings; 
use WWW::Mechanize; 

my $username = "username"; 
my $password = "password"; 
my $cookie_jar; 

my $url = "http://www.albumartexchange.com/forums/ucp.php?mode=login"; 

my $mech = WWW::Mechanize->new(cookie_jar => $cookie_jar); 

$mech->credentials($username, $password); 
$mech->get($url); 

$mech->success() or die "Failed"; 

$mech->submit_form(
    form_number => 4, 
); 
die "Submit failed" unless $mech->success; 

$mech->save_content('log.txt'); 

UPDATE：

use strict; 
use warnings; 
use WWW::Mechanize; 

my $cookie_jar; 
my $mech = WWW::Mechanize->new(cookie_jar => $cookie_jar); 
$mech->get('http://www.albumartexchange.com/forums/ucp.php?mode=login'); 

$mech->submit_form(
    form_number => 4, 
    fields  => { 
     'username' 
      => 'some_username', 
     'password' 
      => 'some_password', 
    } 
); 
$mech->save_content('log.txt'); 

Answer 1

這裏您不需要credentials。只需使用：

$mech->submit_form(
    form_number => 4, 
    fields => { 
     username => $user, 
     password => $pass, 
    }, 
); 

當然不要忘了更改username和password實際的字段名稱爲您的目標頁面。

Answer 2

該網頁不使用HTTP認證，這是什麼credentials是。只需使用Mech填寫username和password表單字段並提交登錄表單。