设置口令 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语句不同,取决于是比较数字还是文本。比较数字,可以用==, !=, >, < 符号。如果比较文本,用eq判断是否相等,用ne判断是否不相等。 上面的语句确定在用户输入的文本不等于"mypassword"时将做什么。 print "Invalid Password"; 口令不对时打印某些信息。 } else { 否则... print ’ <BODY BGCOLOR="WHITE"> <H1> Welcome, you have entered the<P> Password protected site </H1> ’; 口令正确,进入有口令保护的网站。>>
|