perl入门-口令设置

发布时间:2019-08-08编辑:脚本学堂
perl口令设置

 设置口令
CGI的一个有趣的特征是即使任何用户都能执行它们,但却没有办法在屏幕上显示她们。
这意味着可以做一个口令脚本
#********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语句不同,取决于是比较数字还是文本。比较数字,可以用==,!=, >,
上面的语句确定在用户输入的文本不等于"mypassword"时将做什么。
print "Invalid Password";
口令不对时打印某些信息。
} else {
否则...
print ‘
<BODY BGCOLOR="WHITE">
<H1> Welcome, you have entered the<P>
Password protected site </H1>
‘;
口令正确,进入有口令保护的网站。