繁体中文
设为首页
加入收藏
当前位置:程序开发首页 >> CGI >> 用Perl制作留言本实例之三

用Perl制作留言本实例之三

2006-12-15 08:00:00  作者:  来源:互联网  浏览次数:0  文字大小:【】【】【
简介:   这个程序相当简陋,但它具有了所有的CGI-Guest程序的特点, 我们一一分析如下:    首先,    read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});    @pairs=split(/&/,$buffer);    foreach $pair(@pa...

   这个程序相当简陋,但它具有了所有的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来做这样的检查,这样服务器的负担将大大

减轻。

责任编辑:admin
相关文章