Perl源码:一种图形显示式计数器CGI程序范例

<table border="1" bgcolor="#F5DE38" width="81">
<tr>
<td width="75"><img src=http://fanqiang.chinaunix.net/program/code/2001-08-23/"http://gzcatv.huyt.net/cgi-bin/counter.cgi?position=5" width="15"
height="17"><img src=http://fanqiang.chinaunix.net/program/code/2001-08-23/"http://gzcatv.huyt.net/cgi-bin/counter.cgi?position=4" width="15"
height="17"><img src=http://fanqiang.chinaunix.net/program/code/2001-08-23/"http://gzcatv.huyt.net/cgi-bin/counter.cgi?position=3" width="15"
height="17"><img src=http://fanqiang.chinaunix.net/program/code/2001-08-23/"http://gzcatv.huyt.net/cgi-bin/counter.cgi?position=2" width="15"
height="17"><img src=http://fanqiang.chinaunix.net/program/code/2001-08-23/"http://gzcatv.huyt.net/cgi-bin/counter.cgi?position=1" width="15"
height="17"></td>
</tr>
</table>
上面一段代码是用作调用此程序的HTML代码。在要显示计数的地方放上此段代码即可。
###########################################################
#!/usr/bin/perl
$counterfile = "counter/counter.txt"; #counter.txt（计数器的数据库文件）的相对路径
$imagefile{'0'}="counter/0.gif"; # 0.gif（数字图片文件）的相对路径
$imagefile{'1'}="counter/1.gif";
$imagefile{'2'}="counter/2.gif";
$imagefile{'3'}="counter/3.gif";
$imagefile{'4'}="counter/4.gif";
$imagefile{'5'}="counter/5.gif";
$imagefile{'6'}="counter/6.gif";
$imagefile{'7'}="counter/7.gif";
$imagefile{'8'}="counter/8.gif";
$imagefile{'9'}="counter/9.gif";
######################
$|=1;
@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@querys) {
($name, $value) = split(/=/, $query);
$FORM{$name} = $value;}
$position="$FORM{'position'}";
#上面程序段为接收浏览器送来的数据处理段
######################
open(NUMBER,"$counterfile");#用只读方式打开记录库文件
$number=<NUMBER>;#将库文件内的数据赋给变量$number
close(NUMBER);#关闭数据库
$number++;#记录数加一
if ($position==1) {#如果$position（浏览器端送来的数据）等于一，则将新数据写如数据库
open(NUMBER,">$counterfile");
print NUMBER "$number";
close(NUMBER);}
if (($position>0) && ($position<=length($number))) {#如果$position大于0并且小于$number的字段位数（length($number)是截取$number的字段位数的语句）
$positionnumber=substr($number,(length($number)-$position),1);#截取从$number的右边开始的第length($number)-$position)}后的一个字符。
else {#否则$positionnumber=0
$positionnumber="0";}
if ($imagefile{$positionnumber}) {#如果$imagefile{$positionnumber}已定义
$imagereturn=$imagefile{$positionnumber};}#则有$imagereturn=$imagefile{$positionnumber}
else {#否则$imagereturn=$imagefile{'0'}

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	程序 范例 计数器 显示 源码 图形 imagefile position