● LosTemple 每日登陆次数排行榜的脚本(转寄) - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: 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软件网络书店