Question

我有一個Perl腳本，它運行起來像一個網頁，在它上面我創建了一個這樣的。

sub displayFrom{ 
my $html; 
$html.= getHeader(add User); 
$html.= getNavBar(); 
$html .= '<form method ="POST" accept-charset="utf-8">'; 
$html .= '<input type="text" id="username" name="username">'; 
$html .= '<input type="password" id="password" name="password">'; 
$html .= '<input type="submit" id="btn_submit" name="btn_submit">'; 
$html .= '</from>'; 
print $html; 
} 

然後在我的調度員，我有這個。

sub dispatch{ 
my $createRequest = $CGI->param("btn_submit"); 
if(defined $createRequest){ 
    print Dumper $CGI; 
} 

當我打印CGI的內容時，我看不到字段用戶名和密碼。我對Perl和Perl網絡/服務器的東西相當陌生。任何幫助，將不勝感激。

Answer 1

如果您使用$CGI->param("btn_submit");它將只對應於btn_submit工作。

如果你需要找到用戶名和密碼，試試這個

my $username = $CGI->param("username"); 
my $password = $CGI->param("password");