|
对于本章的程序——选票程序，我不想多说什么。我只是想在本程序内教给大家如何
使用perl语言或C语言如何处理字符串的实例。让我们先看看代码：
页面文件——pote.html
<HTML>
<TITLE>投票程序</TITLE>
<h1>投票程序</h1>
<FORM METHOD="post" ACTION="/cgi-bin/vote.pl">
一。你喜欢谁？<br>
<input type="radio" name="idol" value="A" checked>张德陪<br>
<input type="radio" name="idol" value="B">阿加西<br>
<input type="radio" name="idol" value="C">桑普拉斯<br>
<input type="radio" name="idol" value="D">贝克<br>
<input type="radio" name="idol" value="D">顾懿<br>
<input type="submit" value="执行">
<input type="reset" value="取消">
</form>
查询<a href="/cgi-bin/vote.pl？command=view">选举投票结果</a>
</html>
CGI程序：——vote.pl
#！perl
print"Content-type：text/html\n\n"；
print"<titel>投票系统</title>"；
if（$ENV{'REQUEST_METHOD'}eq"POST"）{
read（STDIN，$buffer，$ENV{'CONTENT_LENGTH'}）；
}elsif（$ENV{'REQUEST_METHOD'}eq"GET"）{
$buffer=$ENV{'QUERY_STIRNG'}；
}
@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；}
上一篇:CGI简明教程第三章
下一篇:CGI脚本在WIN2000、WINNT下安装
|
