登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>CGI教程>>CGI资料其它>>用Perl制作留言本实例之二
用Perl制作留言本实例之二
来源:不详 ‖ 作者:未知 ‖ 点击: ‖ 时间:08-01-05 08:22:25 ‖ 【 】‖ 我要投稿
将此表单的提交后的动作交给guest-book.cgi程序。   
   guest-book.cgi
   #! perl   
   print"Content-type:text/htmlnn";
   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;
   }
   print"";
   print" 留言本";   
   foreach $check(values%FORM){
   if($check eq""){
   print"----------------------------------------------------------------";
   print"请不要留空";
   exit(0);
   }
   }   
   $FORM{'suggest'}=~s/cMn/n/g;
   $filename="c:/website/htdocs/book.html";
   open(FILE,">> $filename");
   print FILE "名字:$FORM{'name'}n";
   print FILE "Email:
   print FILE "留言:$FORM{'suggest'}";
   close{FILE};  
   print "谢谢留言";
   print"请观看留言本";  
   exit(0);
加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
  • 上一篇:Perl教学 Perl5中的引用(指针)
  • 下一篇:无
  • 相关文章列表
    无相关新闻
    请文明参与讨论,禁止漫骂攻击。  
    网友评论