计数器原代码---中文注释
计数器原代码
----------------------------------------------------------------------
#!/usr/bin/perl
#以上为p erl解释程序在服务器中的目录如果您的
#目录不同需作相应改变。
#origin by:ben short
#upgrade by:杜经农
#ver 2.01
#程序农场出品
######################################################################
#
######################################################################
#------------------------------------------------------
#以下部分可以修改以符合您的站点情况
#------------------------------------------------------
#存放记数器数据的文件名它将放于本perl程序同一目录内
$c ountname="c ounts.txt";
#是否记录访问者的IP地址。 (0=no, 1=yes)
$logip=1;
#服务器中date命令所在的目录
$datepath="/us r/bin/date";
#记录IP地址的文件它将放于本p erl程序同一目录内
$ipname="ipdata.txt";
#记数器图像所在的URL位置
$ur l="http://duj l.uho m e.n et/c g i-b in/";
#本记数器将要被放置于其上的站点
$s erver="duj l.uhome.net";
#以下为数字图像文件的特性值
$digext=".gif";#g if文件
$digtyp e="a";#a系列
$w idth="15";#图像显示的长与宽度
$height="20";
#######################以下为主程序段无需修改#########################pr int "Content-typ e: text/html\n\n";open(F ILE, $c ountname);
$c ounter=<FI LE>;close(FILE);sub c ounter {
@data=split(":", $c ounter);
$c ount=@data[0];
$lastip=@data[1];
#以下比较访问者的IP地址与上一次的是否相同如相同
#则不增加记数。if($ENV{'REMOTE_ADDR'}ne$lastip) {
$c ount=$c ount+1;
}els e {
$c ount=$c ount+0;
}
@nums=s p lit(//, $c o unt);for eac h$CountNr (@num s) {
$printc ount = "<img src=\"$url$CountNr$digtype$d igext\" w idth=\"$w idth\" height=\"$he ight\"alt=\"$C ountNr\">";print$printc ount;
}
}sub write_c ount {op en(FILE, ">$c ountname");print FILE"$c ount:$ENV{'REMOTE_ADDR'}";close(FILE);
}sub write_ip{
$date=`$datepath`;chomp($date);open(FILE, ">>$ipname");print FILE"$date$ENV{'REMOTE_ADDR'}\n";close(FILE);
}
sub validate {if($ENV{'HTTP_HOST'} eq"$s erver") {&c ounter;
&write_c ount;if($logip eq"1") {
&write_ip;
}
}els e {print "请不要使用别人的记数器";
}
}
&validate;
diyvm怎么样?diyvm是一家国内成立时间比较久的主机商家了,大约在6年前站长曾经用过他家的美国机房的套餐,非常稳定,适合做站,目前商家正在针对香港沙田机房的VPS进行促销,给的是五折优惠,续费同价,香港沙田机房走的是CN2直连的线路,到大陆地区的速度非常好,DiyVM商家采用小带宽不限流量的形式,带宽2Mbps起步,做站完全够用,有需要的朋友可以入手。diyvm优惠码:五折优惠码:OFF50...
前几天还在和做外贸业务的网友聊着有哪些欧洲机房的云服务器、VPS商家值得选择的。其中介绍他选择的还是我们熟悉的Vultr VPS服务商,拥有比较多达到17个数据中心,这不今天在登录VULTR商家的时候看到消息又新增一个新的机房。这算是第18个数据中心,也是欧洲VPS主机,地区是瑞典斯德哥尔摩。如果我们有需要欧洲机房的朋友现在就可以看到开通的机房中有可以选择瑞典机房。目前欧洲已经有五个机房可以选择,...
昨天我们很多小伙伴们应该都有看到,包括有隔壁的一些博主们都有发布Vultr商家新的新用户注册福利活动。以前是有赠送100美元有效期30天的,这次改成有效期14天。早年才开始的时候有效期是60天的,这个是商家行为,主要还是吸引到我们后续的充值使用,毕竟他们的体验金赠送,在同类商家中算是比较大方的。昨天活动内容:重新调整Vultr新注册用户赠送100美元奖励金有效期14天今天早上群里的朋友告诉我,两年...