|
設(shè)置口令
CGI的一個有趣的特征是即使任何用戶都能執(zhí)行它們，但卻沒有辦法在屏幕上顯示她們。這意味著可以做一個口令腳本：
#********BEGIN BODY**************
if ($value[0] ne "mypassword") {
print "Invalid Password";
} else {
print ’
<BODY BGCOLOR="WHITE">
<H1> Welcome, you have entered the<P>
Password protected site </H1>
’;
};
#*********END BODY***************
要用這個腳本，需要建立一個有form的HTML頁面。如果在form上只有password一個box，則在運行腳本時它傳遞給$value[0]。
和javascript不同，用戶看不到源代碼，所以使用以下代碼是安全的：
if ($value[0] ne "mypassword") {
第一行為IF語句，與在javascript中的用法相似。
在Perl中，IF語句不同，取決于是比較數(shù)字還是文本。比較數(shù)字，可以用==, !=, >, < 符號。如果比較文本，用eq判斷是否相等，用ne判斷是否不相等。
上面的語句確定在用戶輸入的文本不等于"mypassword"時將做什么。
print "Invalid Password";
口令不對時打印某些信息。
} else {
否則...
print ’
<BODY BGCOLOR="WHITE">
<H1> Welcome, you have entered the<P>
Password protected site </H1>
’;
口令正確，進入有口令保護的網(wǎng)站。>>
|
