电信主站 网通分站
购买流程 付款方式 常见问题 在线提问 续租服务 购物车
用户名: 密 码: 忘记密码?
首 页
域名注册
虚拟主机
双线主机
服务器租用
VPS主机
企业邮局
代理专区
客服中心
虚拟主机行业资讯 虚拟主机评测对比 互联网最新动态 技术学院 站长资讯 在线教程 网站运营
搜索优化 服务器 网络编程 图形图象 站长之家 网页制作 操作系统
冲浪宝典 软件教学 视频通信 办公软件 邮件系统 网络安全 认证考试
您当前位置:西部数码->资讯中心-> 在线教程-> CGI
用Perl制作页面计数器 (转载于上海热线)-CGI教程,CGI文档
作者:网友供稿 点击:31
  西部数码-全国虚拟主机10强!20余项虚拟主机管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!虚拟主机可在线rar解压,自动数据恢复设置虚拟目录等.虚拟主机免费赠送访问统计,企业邮局.Cn域名注册10元/年,自助建站480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金!
文章页数:[1] 
用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
"cant create lockfile.\n";
# 读文件并更新数据
open(data,$data) || die "cant 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 >

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

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!
相关主题
文章页数:[1] 
Google
热门文章
·LB5000XP论坛配合SERV-U获取系统管理员权限-CGI教程,CGI文档
·CGI 版本-PHP教程,其它文章
·获取随机的由大小写字母和数字组成的八位密码-CGI教程,CGI文档
·Perl在NT下的快速简便安装方法 (转)-CGI教程,CGI文档
·实战 FastCGI(转)二-CGI教程,CGI文档
·XML和现代CGI应用程序-.NET教程,XML应用
·perl在win32平台上直接操作打印机-CGI教程,CGI文档
·实战 FastCGI(转)五(完)-CGI教程,CGI文档
·Python 快速入门(一)-CGI教程,CGI文档
·网站 PAGEVIEW 分析系统 CGI (原创)-CGI教程,CGI文档

最新文章
·顺便说说一些指示代码
·跟我学Perl(二)
·跟我学Perl(一)
·CGI教程(5)利用CGI解码FORM
·CGI教程(4)HTML 表单
·CGI教程(3)怎样发回文档给客户端
·CGI教程(2)怎样从服务器获得信息
·CGI教程(1)简介
·CGI教程(目录)
·Perl直接入门详尽指南




版权申明:本站文章均来自网络,如有侵权,请联系我们,我们收到后立即删除,谢谢!

特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有。
  打印  刷新  关闭
返回首页 |关于我们 | 联系我们 | 付款方式 | 创业联盟 | 虚拟主机 | 资讯中心 | 友情链接 | 网站地图

版权所有 西部数码(www.west263.com)
CopyRight (c) 2002~2006 west263.com all right reserved.
公司地址:四川成都市万和路90号天象大厦4楼 邮编:610031
电话总机:028-86262244 86263048 86263408 86263960 86264018 86267838
售前咨询:总机转201 202 203 204 206 208
售后服务:总机转211 212 213 214
财务咨询:总机转224 223 传真:028-86264041 财务QQ:点击发送消息给对方635483282
售前咨询QQ:点击发送消息给对方2182518 点击发送消息给对方241975952 点击发送消息给对方275026793 点击发送消息给对方408235859
售后服务QQ:点击发送消息给对方17708515 点击发送消息给对方307742704 点击发送消息给对方287976517 点击发送消息给对方363783715
《中华人民共和国增值电信业务经营许可证》编号:川B2-20030065号