用Perl制作留言本案例之3
發(fā)表時間:2024-06-12 來源:明輝站整理相關軟件相關文章人氣:
[摘要]這個程序相當簡陋,但它具有了所有的CGI-Guest程序的特點, 我們一一分析如下: 首先, read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @pairs=split(/&/,$buffer); foreach...
這個程序相當簡陋,但它具有了所有的CGI-Guest程序的特點,
我們一一分析如下:
首先,
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-f A-F 0-9][a-f A-F 0-9])/pack("C",hex($1)
)/eg;
$FORM{$name}=$value;
}
這是一段表單分析的語句,在前面的程序里,估計大家也都見過
了。
其次:
foreach $check(values%FORM){
if($check eq""){
print"----------------------------------------------------------------";
print"請不要留空";
exit(0);
}
}
做輸入字段的檢查,看看是否有留空的現(xiàn)象。從前這種任務都是
要CGI程序來驗證的,比如email是否輸入的是mail地址等檢查。不過現(xiàn)
在我們可以通過javascript來做這樣的檢查,這樣服務器的負擔將大大
減輕。