自己动手做个留言簿
就现在的情况来看，一个标准的guest－book程序一般包括三个文件。提交表单文件（form.html）、cgi处理文件（guest－book.cgi）和最后的输出文件（book.html）。三者的合作就可以完成留言簿的基本功能－留言。留言簿界面可以随便做，只要注意提交表单指向guest－book.cgi就可以，其它没有太多要求。
首先我们来看看form.html的文件内容：
<html>
<title>guest－book.html</title>
<h1>留言本</h1>
<form method=″post″ action=″/cgi－bin/guest－book.cgi″>
<p>名字：<input name=″name″ size=″20″>
<p>email:<input name=″email″ size=″30″>
<p>意见：<textarea name=″suggest″ cols=30 rows=4></textarea>
</textarea><p>
<input type=″submit″ value=″提交″>
<input type=″reset″ value=″取消″>
</form></html>
<form method=″post″ action=″/cgi－bin/guest－book.cgi″>
将此表单的提交后的动作交给guest－book.cgi程序。
再看看guest－book.cgi的源代码：
＃! perl （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″<title>留言本</title>″;
print″<h1>留言本</h1>″;
foreach ＆check（values％FORM）{
if（＆check eq″″）{
print″<hr size=3>″;
print″<h2>请不要留空″;
exit（0）;
}
}
＆FORM{＇suggest＇}=～s/cM\n/<br>\n/g;
＆filename=″http://www.yourname.com/book.html″;（留言簿的相对位置）
open（FILE，″>> ＆filename″）;
print FILE ″名字：＆FORM{＇name＇}<br>\n″;
print FILE ″Email:<a href=″mailto:＆FORM{＇email＇}>＆FORM{＇email＇}</a><br>\n″}″;
print FILE ″留言：＆FORM{＇suggest＇}″;
close{FILE};
print ″<h2>谢谢留言</h2>″;
print″<a href=\″book.html\″>请观看留言本</a>″;
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″<hr size=3>″;
print″<h2>请不要留空″;
exit（0）;
}
}
做输入字段的检查，看看是否有留空的现象。从前这种任务都是要CGI程序来验证的，比如E－mail栏中输入的是否E－mail地址检查等。不过现在我们可以通过javascript来做这样的检查，这样服务器的负担将大大减轻。
最后：
＆filename=″http://www.yourname.com/book.html″;
open（FILE，″>> ＆filename″）;
print FILE ″名字：＆FORM{＇name＇}<br>\n″;
print FILE ″Email:<a href=″mailto:＆FORM{＇email＇}>＆FORM{＇email＇}</a><br>\n″}″;
print FILE ″留言：＆FORM{＇suggest＇}″;
close{FILE};
print ″<h2>谢谢留言</h2>″;
print″<a href=\″book.html\″>请观看留言本</a>″;
exit（0）;
输出内容到文件和屏幕上。完成留言的程序。
book.html:
这个程序中对book.html没有什么特别的要求，可以不用写，就让程序自动生成。现在有的cgi程序对book.html也有设定，比如在<head></head>之间就写上注释<!－－这是留言开始－－!><!－－这是留言结束－－!>这样，在程序对留言数据操作的时候，就可以忽略掉文件内的其他内容。
看完了这个简单的自制留言簿程序，你是不是想自己做一个呢？只要你用HTML语言把form.html做的漂亮一点，再把guest－book.cgi写好就可以放在支持CGI的免费个人主页的主机上（设好权限，以免被别人抓走了），你就可以炫耀了:“这是我自己做的留言簿，感觉怎么样？”相信很多“菜鸟”一定会对你佩服得五体投地！