用Perl制作留言本案例之3

这个程序相当简陋，但它具有了所有的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);
　　 }
　　 }

　　 做输入字段的检查，看看是否有留空的现象。从前这种任务都是
要CGI程序来验证的，比如email是否输入的是mail地址等检查。不过现
在我们可以通过javascript来做这样的检查，这样服务器的负担将大大
减轻。

……