Guest-book在网页设计中占有相当重要的地位，以至于可以和记数
器相提并论。留言本可以用许多编程语言来设计，当然使用最多的还是
perl和vb两种。本次cgi教程我们将谈谈在编写Guest-book中最应该注
意的问题，并将给出一个不算很完整的程序代码。
就现在的情况来看，一个标准的guest-book程序一般包括三个文
件。提交表单文件
（form.html)、cgi处理文件(guest-book.cgi)和最后的输出文
件（book.html)。有些vb程序以access数据库为后台存储格式，以方便
用户查找留言。下图给出了guest-book的工作流程。
form.html
＜h1>＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt">留言本＜/span>＜/h1>
＜form action=/cgi-shl/guest-book.cgi method=post>
＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt">＜/span>
＜p>＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt">名字：
＜input name=name>
＜/span>
＜p>＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt">email:
＜input name=email size=30>
＜/span>
＜p>＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt">意见：
＜textarea cols=30 name=suggest rows=4>＜/textarea>
＜/span>
＜p>＜span style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt">
＜input type=submit value=提交 name="submit">
＜input type=reset value=取消 name="reset">
＜/span>
＜/form>
将此表单的提交后的动作交给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);
这个程序相当简陋，但它具有了所有的CGI-Guest程序的特点，
我们一一分析如下：
首先，
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;
}
这是一段表单分析的语句，在前面的程序里，估计大家也都见过
了。
其次：
foreach $check(values%FORM){
if($check eq""){
print"----------------------------------------------------------------";
print"请不要留空";
exit(0);
}
}
做输入字段的检查，看看是否有留空的现象。从前这种任务都是
要CGI程序来验证的，比如email是否输入的是mail地址等检查。不过现
在我们可以通过javascript来做这样的检查，这样服务器的负担将大大
减轻。
最后：
$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);
输出内容到文件和屏幕上。完成留言的程序。
book.html:
这个程序中book.html没有什么特别的要求，可以不用写，就让
程序自动生成。
现在有的cgi程序，对book.html也有设定，比如在>之间就写上注释
这样，在程序对留言数据操作的时候，就可以忽略掉文件内的其它内容。