阅读内容 

用Perl制作留言本实例之三

[日期:2005-04-16] 来源:中国站长学院  作者:郁郁小蝎 [字体: ]
   这个程序相当简陋,但它具有了所有的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来做这样的检查,这样服务器的负担将大大
减轻。

阅读:
录入:

推荐 】 【 打印
相关新闻      
本文评论       全部评论
发表评论
  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款


点评: 字数
姓名:
Advertisement
内容查询


Advertisement