用Perl制作留言本实例之三

时间： 2021-07-31 作者：daque

这个步调十分大略，但它具备了一切的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来做如许的查看，如许效劳器的承担将大大减少。

用Perl制作留言本实例之三

相关推荐

推荐下载

热门阅览

最新排行