#!/usr/bin/perl -w use strict; use Data::Dumper; my $key; my %datadurge = (); my %nickjoins = (); my $rank = 1; my $total = 0; my $others =""; # Open stats data file from statbot.pl open (FILE, "< datadurge"); # or die "can't open statsdata: $!"; { undef $/; # read in file all at once eval ; # recreate $datadurge } #die "can't recreate nick data from statsdata: $@" if $@; close FILE; #or die "can't close statsdata: $!"; # Open nickjoin file my $nick = ""; my $join = ""; my $line = ""; open (FILE, "< nickjoin"); # or die "can't open nickjoin: $!"; { while (my $file = ) { chomp $file; foreach $line (split /^/, $file) { $line =~ s/\n//g; ($nick, $join) = split /:/, $line; $nickjoins{$nick} = $join; } } } close FILE; # Print HTML print < #durge anal

#durge anal

Top 100 Nicks

EOF ; my $nicktotal = 0; foreach $key (sort {$datadurge{$b} <=> $datadurge{$a}} keys %datadurge) { if ($rank < 1201) { if (exists $nickjoins{$key}) { $nicktotal = 0; foreach $nick (split /,/, $nickjoins{$key}) { if (exists $datadurge{$nick}) { $nicktotal = $nicktotal + $datadurge{$nick}; } } $nicktotal = $nicktotal + $datadurge{$key}; print " \n \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; } else { print " \n \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; } } elsif ($rank > 1200) { $others = $others . $key . " "; } $rank++; $total = $total + $datadurge{$key}; } print <

Rank	Nick	Lines	Nickjoins
$rank	$key	$datadurge{$key}	$nicktotal	$nickjoins{$key}
$rank	$key	$datadurge{$key}
	Total	$total

...and the others

make up $rank different nicks.

Which are.....

$others

EOF ; print < EOF ;