linux perl cgi 制作留言版

kenny.lei

html文件
guest-book.html
messages
name:
email:
yijian:
perl CGI文件
#!/usr/bin/perl
print"Content-type:text/html\n\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;
}
print"messages";
print"messages";
foreach $check(values%FORM){
if($check eq""){
print"";
print"Please don't let is empty";
exit(0);
}
}
print"Name:$FORM{'name'}
\n";
print"Email:$FORM{'email'}
\n";
print"Messages:$FORM{'suggest'}";
print "Thanks for your messages!";
exit(0);


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u1/45250/showart_355165.html