选择显示字体大小

用perl制作页面计数器


  网友大都喜欢在自己的主页上做一个计数器来显示自己主页被访问的次数。以前我们只能申请由第三方提供的计数器或用由系统管理员提供的计数器,受到很大限制。现在许多免费空间都提供了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";
&#36;accesses = < data >;
&#36;accesses++;
print data &quot;&#36;accesses\n&quot;;
close(data);
# 删除临时文件,对数据文件开锁
  close(lock);
unlink(&#36;lockfile);
}
   你可以在页面上需要显示计数器的地方加上下面的html代码,页面被访问的时候,来访者就可以知道自己是第几位来访者了。
< html > < head >
< title >home page< /title >
< /head >
< body >
< h1 >home page< /h1 >
< p >欢迎您!第
< !--#exec cgi=&quot;/cgi-bin/text-counter.cgi&quot; >
位来访者.< /p >
< /body > < /html >

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

  


 


关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

Java   Asp   PHP   .Net   XML   C/C++   CGI   VB   Jsp   J2ee   J2se   J2me   EJB   Servlet   Tomcat   Resin   Struts   Weblogic   Eclipse   ANT   GUI   JMS   Web servise   IDEA   Webphere   Hibernate   Spring   Jboss   Applet   Swing   Socket   Javamail   Perl   Ajax   P2P   安全   模式   框架   测试   开源   游戏

SQL数据库相关

My-SQL   Ms-SQL   Access   DB2   Oracle   Sybase   SQLserver   索引   存储过程   加密   数据库   分页   视图  

手机无线相关

3G   Wap   CDMA   GRPS   GSM   IVR   彩信   短信   无线   增值业务

网页设计制作相关

HTML   CSS   网页配色   网页特效   Javascript   VBscript   Dreamweaver   Frontpage   JS   Web   网站设计

网站建设推广相关

建站经验   网站优化   网站排名   推广   Alexa

操作系统/服务器相关

Windows XP   Windows 2000   Windows 2003   Windows Me   Windows 9.x   Linux   UNIX   注册表   操作系统   服务器   应用服务器

图形图像多媒体相关

Photoshop   Fireworks   Flash   Coreldraw   Illustrator   Freehand   Photoimpact   多媒体   图形图像

标准 网站致力的规范

Valid CSS!

无不良内容,无不良广告,无恶意代码

Valid XHTML 1.0 Transitional

creativecommons