Question

perl 如何统计页面访问数量

Answer 1

如果这个页面是PERL作的，那么就在这个PERL程序上增加语句，如果这个页面不是PERL做的，那么就修改这个页面调用一下PERL程序，要达到的目的就是某个PERL程序在页面被访问的时候就运行一次，这个PERL程序每次运行时候打开某个文件或者数据库，修改里面的值为原来数值+1即可。

非PERL页面调用PERL程序比较简单的方式是使用JAVASCRIPT，例如：
<script laguage=javascript src=cnt.pl></script>

cnt.pl文件有以下内容即可：
#! c:/perl/bin/perl.exe
$CounterFile = "cnt.dat";
#读计数器
$Count=0;
if (-f "$CounterFile"){
open(FD,"$CounterFile");
$line=<FD>;
$Count+=0;
close(FD);
}
$Count++;
#修改计数器
open(FD,">$CounterFile");
print FD $Count;
close(FD);

#显示
print ("Content-type: text/plain\n\n");
print("document.write($Count);");