Question

怎么用perl语言修改log文件内的数据

我在看《flash的第一步》第26章时碰到一个问题，书中有章是用flash+CGI编写网站访问量计数器。有三个文件totalcount.pl，updatecount.pl，totalcount.log

//totalcount.pl内容如下：

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
#用读取方式打开totalcount.log，并返回文件处理句柄LOGFILE。
open (LOGFILE, "<cgi-bin/totalcount.log");
#把文件处理句柄指向的文件（即totalcount.log）中的内容读取到变量count中。
$count=<LOGFILE>;
#对count加1。
$count++;
#关闭totalcount.log文件。
close LOGFILE;
#以写入方式打开totalcount.log文件。
open (LOGFILE, ">cgi-bin/totalcount.log");
#把count的新值写入totalcount.log文件。
print LOGFILE ("$count");
#关闭totalcount.log文件。
close LOGFILE;
#向标准输出输出howmany=$count&
print "howmany=$count&";
#向标准输出输出myTrigger1=1
print "myTrigger1=1";

//updatecount.pl内容如下：
#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
open (LOGFILE, "<cgi-bin/totalcount.log");
$count=<LOGFILE>;
close LOGFILE;
print "howmany=$count&";
print "myTrigger2=1";

//totalcount.log内容如下：
5

可是做的时候，totalcount.pl无法正确读取totalcount.log内的内容
无论我totalcount.log里是啥，totalcount.PL输出的都是：howmany=1&myTrigger1=1

请问上面代码有错误吗？为什么不能读取或者修改totalcount.log内容？
我用windows XP的系统，perl 5.8.8版本，IIS里网站-属性-主目录里脚本资源访问、读取、写入、记录访问、索引资源都勾上了。不知道怎么就是不行。到底是什么问题？有服务没开吗？各位大虾教教我吧：（
这代码是用来当计数器用的
$count++
文章里说是想给count加1；
@count=<LOGFILE>; 是读取log全部内容，$count=<LOGFILE>是读log里的第一行？
可是我运行的时候根本没有读log里的内容，是不是如果读不到，就当做1来处理？

Answer 1

$count=<LOGFILE>是读第一行，读全部内容是@count=<LOGFILE>;
还$count++的操作有点莫名其妙，不知道你这个程序到底要干什么