用Perl制作留言本实例之二
添加时间: 2006-5-8 3:25:08 作者: CGI教程 阅读次数:38 来源: http://d9soft.com
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制作留言本实例之一
相关文章: