用Perl制作留言本实例之二

时间： 2021-07-31 作者：daque

将此表单的提交后的举措交给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制作留言本实例之二

相关推荐

推荐下载

热门阅览

最新排行