Perl CGI 页面访问计数器不增加

Question

我正在尝试一个基本的 Perl/CGI 脚本来跟踪访问网页的访问者。 Perl 代码如下所示：

#!/usr/bin/perl
#KEEPING COUNT OF VISITORS IN A FILE
use CGI':standard';
print "content-type:text/html\n\n";
#opening file in read mode
open (FILE,"<count.dat");
$cnt= <FILE>;
close(FILE);
$cnt=$cnt+1;
#opening file to write
open(FILE,">count.dat");
print FILE $cnt;
close(FILE);
print "Visitor count: $cnt";

问题是网页不会在每次刷新时增加访问者计数。计数保持在 $cnt 的初始值，即“1”。有什么想法问题出在哪里吗？

Answer 1

您永远不会测试打开文件句柄的尝试是否有效。给定一个我有权读取和写入的文件，其中包含一个数字而没有其他内容，代码的行为符合预期。如果该文件不存在，则计数将始终为 1，如果它是只读的，则它将保留在文件开始的位置。

更一般的建议：

• use strict; 和 use warnings;（并根据他们的抱怨纠正代码）
• 按照以下方式使用三个参数调用 open 文档中的第一个示例
• 当您打开文件时，始终|| handle_the_error_in($!);
• 不要使用文件来存储这样的数据，你有潜在的竞争条件。
• 获取语言名称 正确

Answer 2

这是另一种解决方案，它仅使用一个 open() 并创建该文件（如果该文件尚不存在）。锁定消除了多个更新者之间潜在的竞争状况。

#!/usr/bin/env perl
use strict;
use warnings;
use Fcntl qw(:DEFAULT :flock);
my $file = 'mycount';
sysopen(my $fh, $file, O_RDWR|O_CREAT) or die "Can't open '$file' $!\n";
flock($fh, LOCK_EX) or die "Can't lock $file: $!\n";
my $cnt = <$fh>;
$cnt=0 unless $cnt;
$cnt++;
seek $fh, 0, 0;
print ${fh} $cnt;
close $fh or die "Can't close $file: $\n";
print "Visitor count: $cnt\n";

Answer 3

一些潜在的原因：

• “count.dat”未打开进行读取。至少始终使用 or die $!; 进行测试，以检查文件是否已打开

• 代码没有被执行，而您认为它是

Answer 4

您可能会忘记的最明显的事情是更改文件 count.dat 的权限
这样做：

sudo chmod 777 count.dat

应该可以解决问题

Answer 5

您需要关闭该网页并再次重新打开。仅刷新页面不会增加计数。