学习构造简单的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\n\n";
print qq!document.write("$counter");!;

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