t2gcount.pl

Perl 脚本程序 文本计数器 运行环境 linux

#!/usr/bin/perl

#存放记数文件的目录
$count_dir="/home2/perl/public_html";

#随意制作的一个小LOGO的URL，也可以精心制作一个，但是一定要有此文件
$img="http://perl.zb169.net/images/run.gif";

#数字字体
$count_font="MTBWidgets";

#数字是否使用粗体
$strong1="<strong>";
$strong2="</strong>";

#数字前景色
$count_fore_color="0,255,0";

#数字背景色
$count_back_color="0,0,0";

#数字大小
$count_size="4";

#计数器边框宽度之一
$border1="2";

#计数器边框宽度之二
$border2="0";

#计数器边框宽度之三
$border3="0";

#计数器浅色边框颜色
$bordercolorlight="#00FF00";

#计数器深色边框颜色
$bordercolordark="#0000FF";

#计数器最大位数
$total_size="7";

#################变量定义结束#########################
$in=$ENV{'QUERY_STRING'};

open(FILE,"+<$count_dir/$in") || die "$!";
#flock(FILE,2);
seek(FILE,0,0);
while($line=<FILE>){
	($count,$page)=split(/,/,$line);
}

$count++;

seek(FILE,0,0);
if($page ne ''){
 print FILE "$count,$page";
 truncate(FILE,tell(FILE));
}
#flock(FILE,8);
close(FILE);


open(PAGE,"$page") or die "Cannot open:$!";
@lines=<PAGE>;
close(PAGE);
$temp="";
foreach $line(@lines){
	$temp=$temp.$line;
}
@list=split(/<!--count-->/,$temp);
$l=length($count);
$show=$total_size - $l;
for($i=1;$i<=$show;$i++){
$count="0"."$count";
$new_line="$count";
}
$countstring = "<table border='$border1' cellspacing='$border2' 

		bordercolorlight='$bordercolorlight' bordercolordark='$bordercolordark' 

		cellpadding='$border3'><tr><td><font size='$count_size' face='$count_font'>

		<span style='background-color:rgb($count_back_color);

		color: rgb($count_fore_color)'>";

$textstring="<font size='$text_size' color='$text_color' face='$text_font'>";
	@list[1]="$countstring$strong1$new_line$strong2</span></font></td></tr></table>\n";
$new_count=join("<!--count-->",@list);

open(PAGE,">$page") or die "Cannot open:$!";
#flock(PAGE,2);
print PAGE $new_count;
#flock(PAGE,8);
close(PAGE);


#返回上面变量定义的LOGO，如果没有显示，说明本程序没有正常工作
print "Content-type: image/gif\n";
print "Location: $img\n\n";
exit 0;