● lostemple 网络连接次数排行榜脚本(转寄) - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

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

发信人: zzZzz (zzZzz), 信区: InstallBBS
标  题: lostemple 网络连接次数排行榜脚本(转寄)
发信站: 荔园晨风BBS站 (Thu Apr 25 14:00:04 2002), 转信

【以下文字转载自 zzZzz 的信箱】
【原文由 jjksam@bbs.edu.cn 所发表】
发信人: Altmayer.bbs@lostemple.dhs.org (alt), 信区: BBSMan_Dev
标  题: lostemple 网络连接次数排行榜脚本
发信站: 失落的神殿 (Sun Apr 21 17:32:28 2002)
转信站: SMTH!thunews.dhs.org!news.happynet.org!LosTemple

就是根据上面登陆次数改编的 :)

#!/usr/bin/perl -w
# BBS 网络连接次数排行
# write by alt@2002.04.21

use strict

$maxnum=40;
$date=`date +%Y年%m月%d日`;
chomp($date);
open(BBSNET,"</home/bbs/reclog/bbsnet.log") || die "can not open file bbsnet.log
";

while($line=<BBSNET>){
        my @array=split(/ +/,$line);
        $connectlist{$array[4]}+=1;
}
close(BBSNET);
$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,$host1,$connecttimes1,$num,$host2,$connecttimes2
..

$num=1;
$~="TITLE";
write;
print("\n");
foreach $host(sort by_connecttimes keys(%connectlist)){
        if($num%2==1){
                $host1=$host;
                $connecttimes1=$connectlist{$host};
        }
        else{
                $host2=$host;
                $connecttimes2=$connectlist{$host};
                $~="LINE";
                write;
        }
        if($num==$maxnum){
                last;
        }
        $num+=1;
}

sub by_connecttimes{
        $connectlist{$b} - $connectlist{$a};
}
--
※ 来源:·失落的神殿 lostemple.dhs.org·[FROM: 失落的神殿]
--
※ 转载:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.146]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店