荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: zzZzz (zzZzz), 信区: InstallBBS
标 题: LosTemple 每日登陆次数排行榜的脚本(转寄)
发信站: 荔园晨风BBS站 (Thu Apr 25 14:00:03 2002), 转信
【 以下文字转载自 zzZzz 的信箱 】
【 原文由 jjksam@bbs.edu.cn 所发表 】
发信人: Altmayer.bbs@lostemple.dhs.org (alt), 信区: BBSMan_Dev
标 题: LosTemple 每日登陆次数排行榜的脚本
发信站: 失落的神殿 (Sun Apr 21 05:04:09 2002)
转信站: SMTH!thunews.dhs.org!news.happynet.org!LosTemple
#!/usr/bin/perl -w
# BBS 每天登陆次数排行榜
# write by alt@2002.04.21
use strict
$maxnum=40;
#open(DAT,"</home/bbs/usies") || die "can not open file usies";
$date=`date +%Y年%m月%d日`;
chomp($date);
`grep $date /home/bbs/usies > /home/bbs/tmp/usies.today`;
open(DAT,"</home/bbs/tmp/usies.today") || die "can not open file";
while($line=<DAT>){
my @array=split(/ /,$line);
if(($array[2] eq "ENTER")&&($array[3] ne "guest")){
$loginlist{$array[3]}+=1;
}
}
close(DAT);
$time=`date +%H点%M分`;
format TITLE =
^[[1;34m---^[[37m===^[[31mLosTemple BBS 本日登陆次数排行榜^[[37m
===^[[34m---^[[m
(@<<<<<<<<<<<<<<@<<<<<<<)
$date,$time
..
format LINE =
^[[1;37m 第@#名: @<<<<<<<<<<<< @## 次 ^[[34m|| ^[[33m第@#名: @<<<<<<<<<<<<
@## 次^[[m
$num-1,$id1,$logintime1,$num,$id2,$logintime2
..
$num=1;
#print("登陆次数排行榜\n");
$~="TITLE";
write;
print("\n");
foreach $id(sort by_logintimes keys(%loginlist)){
if($num%2==1){
$id1=$id;
$logintime1=$loginlist{$id};
}
else{
$id2=$id;
$logintime2=$loginlist{$id};
$~="LINE";
write;
}
if($num==$maxnum){
last;
}
$num+=1;
}
sub by_logintimes{
($loginlist{$b} - $loginlist{$a}) || ($a cmp $b);
}
--
※ 来源:·失落的神殿 lostemple.dhs.org·[FROM: 失落的神殿]
--
※ 转载:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.146]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店