明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

用Perl制作留言本案例之3

[摘要]這個(gè)程序相當(dāng)簡陋,但它具有了所有的CGI-Guest程序的特點(diǎn), 我們一一分析如下:    首先,    read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});    @pairs=split(/&/,$buffer);    foreach...
這個(gè)程序相當(dāng)簡陋,但它具有了所有的CGI-Guest程序的特點(diǎn),
我們一一分析如下:
   首先,
   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;
   }
   這是一段表單分析的語句,在前面的程序里,估計(jì)大家也都見過
了。
  
   其次:
   foreach $check(values%FORM){
   if($check eq""){
   print"----------------------------------------------------------------";
   print"請(qǐng)不要留空";
   exit(0);
   }
   }

   做輸入字段的檢查,看看是否有留空的現(xiàn)象。從前這種任務(wù)都是
要CGI程序來驗(yàn)證的,比如email是否輸入的是mail地址等檢查。不過現(xiàn)
在我們可以通過javascript來做這樣的檢查,這樣服務(wù)器的負(fù)擔(dān)將大大
減輕。