学习构造简单的Web计数器

在Perl中构造一个CGI应用程序非常简单。事实上，我们仅仅需要写几行代码来创建一个简单的文本Web计数器。最有意思的部分是确定如何将文本放到HTML文档中。

为了解决这个问题，将下面的JavaScript代码放入你想要计数器出现在HTML文档的地方。

<script language="JavaScript" src="/cgi-bin/textcounter.pl"> </script>

这个告诉我们浏览器从CGI 脚本抢夺JavaScript应用程序资源代码。Perl脚本仅仅返回一个JavaScript命令来打印计数器的值。比如：

#!/usr/bin/perl
 
$count = 'counter.cnt';
 
# open, read, update counter file
open (FILE, "<$count");
$counter=<FILE>;
close(FILE);
 
$counter++;
 
open (FILE,">$count");
print FILE "$counter";
close(FILE);
 
# send the result to the client as a javascript command
print "Content-type: text/html ";
print qq!document.write("$counter");!;

在你安装这个脚本之前，必须确定脚本第一行开始符是‘#！’——在Web服务器上它包含了适当的路径到Perl解释程序。在你复制脚本到Web server的cgi-bin目录，你可能在脚本运行之前需要使用chmod 775命令。