标题：用Perl制作留言本实例之二

时间：2005-4-16 来源：不详 浏览数：次

 将此表单的提交后的动作交给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);

（责任编辑：欣欣裴）

• 其他文章

• 上一篇文章： 用Perl制作留言本实例之一
• 下一篇文章： 用Perl制作留言本实例之三

• 相关文章

在PHP中使用与Perl兼容的正则表达式
如何使用PHP中的字符串函数
PHP中如何使用header发送头部信息
用PHP控制您的浏览器cache
Output Buffer (输出缓冲)函数的妙用

最近更新

今日推荐

热点文章