#!/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);
}
--