动网论坛,站长建站首选,国内使用量最多的论坛软件 动网论坛官方技术讨论区 站长工具 申请属于您自己的免费论坛
首页 | 新闻资讯 | 网站运营 | 网络编程 | 数据库 | 服务器 | 网页设计 | 图像媒体 | 网络应用 | 搜索优化 | 资源下载 | 动网主机 | DVBOX
    本站内  互联网 ASP论坛  ASP.Net论坛  PHP论坛
  
   Cgi/Perl → 阅读文章

 用Perl制作页面计数器

作者来源: 
阅读 1368 人次 , 2006-3-29 4:02:00 


  网友大都喜欢在自己的主页上做一个计数器来显示自己主页被访问的次数。以前我们只能申请由第三方提供的计数器或用由系统管理员提供的计数器,受到很大限制。现在许多免费空间都提供了cgi权限,因此我们也可以用cgi方式实现一个自己的计数器。

  计数器可以用数据库方式实现,也可以用文本文件方式实现。由于文本文件方式不涉及系统的数据库管理系统,相对简单,容易实现,因此,在这里介绍文本方式的计数器。

  计数器的原理比较简单,页面每次被访问的时候,对记录访问次数的数字加1,然后将这个数显示出来。原理虽然简单,在具体实现上还是需要一定的技巧。

  由于一个cgi程序在服务器上并非一直驻留在内存中,为了对访问次数进行计数,则需要把这个数字存入一个文件中,每当主页被访问时,打开该文件将访问数字加1后再存入文件中。

  网站是多用户环境,在访问文件时必须对文件上锁以禁止其他用户对文件的访问,这样才能保证数据的可靠性。然而不同网站使用的操作系统不同,其对文件上锁的机制也不同。本文采用了一种各种平台都适用的方法,每当有页面被访问时,cgi程序创建一个临时文件,此时若有其它进程也要对文件进行存取则须等待,进程对文件更新后删除该临时文件,等待的进程才能对文件进行存取。

  下面是用perl实现的一个计数器源代码,并加注了注释:

#!/usr/local/bin/perl
#存贮表示主页访问量数字的文件
$data = '/usr/local/etc/httpd/htdocs/counter.data';
#用作文件锁的临时文件
$lockfile = '/usr/local/etc/httpd/htdocs/counter.lock';
# 主模块
&increment;
print "content-type: text/html\n\n";
print $accesses;
sub increment {
# 检查临时文件是否存在
while (-e $lockfile) {
sleep 2; # 存在则等待2秒
}
# 创建临时文件
open(lock," >$lockfile") || die
"can't create lockfile.\n";
# 读文件并更新数据
open(data,$data) || die "can't open data file.\n";
$accesses = < data >;
$accesses++;
print data "$accesses\n";
close(data);
# 删除临时文件,对数据文件开锁
  close(lock);
unlink($lockfile);
}
   你可以在页面上需要显示计数器的地方加上下面的html代码,页面被访问的时候,来访者就可以知道自己是第几位来访者了。
< html > < head >
< title >home page< /title >
< /head >
< body >
< h1 >home page< /h1 >
< p >欢迎您!第
< !--#exec cgi="/cgi-bin/text-counter.cgi" >
位来访者.< /p >
< /body > < /html >

  只要掌握了计数器的原理,就可以设计出称心如意的计数器,使你的主页更有吸引力。

 
 收藏本文  打印本文  论坛讨论  关闭窗口
· 上一篇:用Perl语句来代替常用的操作系统命令
· 下一篇:Perl在NT下的快速简便安装方法
· Perl程序设计中常用的函数之一
· 实战 FastCGI_2. 安装 FastCGI之一
· CGI教学:CGI安全问题(五)
· 用Perl语句来代替常用的操作系统命令
· perl实例分析教程之六


关于本站 | 联系我们 | 业务合作 | 客户案例 | 诚聘英才 | 广告合作 | 收藏本站
海口动网先锋网络科技有限公司版权所有
Copyright © 2000 - 2006 Cndw.Com
中华人民共和国电信与信息服务业务经营许可证编号 琼 ICP 020077