Unnamed

#!/usr/bin/perl
 
open(IN, "/home/cvp/irclogs/metanet/#metanet-staff.log") or die("failed to open log file\n");
@lines = <IN>; close IN;

for $line (@lines) {
        next unless $line =~ /\<.([\w\|]+)\>/;
        $name = $1; $lines{$name}++;
        if ($line =~ /\> [Aa]?(?:[HhWw][Aa]){2,}/) { $ha{$name}++; }
}

for $name (reverse sort happy keys(%ha)) { print "$name:\n\tlines: $lines{$name}\n\t\'ha\': $ha{$name}\n";
                                printf("\t\%ha: %.3f %\n",($ha{$name}/$lines{$name})); }

sub happy { ($ha{$a}/$lines{$a}) <=> ($ha{$b}/$lines{$b}) }


# RESULTS:
# LottloVokong:
#         lines: 1
#         'ha': 1
#         %ha: 1.000 %
# KonGOloX:
#         lines: 18
#         'ha': 4
#         %ha: 0.222 %
# Nero:
#         lines: 1374
#         'ha': 247
#         %ha: 0.180 %
# TheSeer:
#         lines: 13
#         'ha': 2
#         %ha: 0.154 %
# KinGAleX:
#         lines: 176
#         'ha': 20
#         %ha: 0.114 %
# Calcy:
#         lines: 96
#         'ha': 10
#         %ha: 0.104 %
# krusch:
#         lines: 92
#         'ha': 8
#         %ha: 0.087 %
# LittleViking:
#         lines: 284
#         'ha': 20
#         %ha: 0.070 %
# Keron_Cyst:
#         lines: 230
#         'ha': 8
#         %ha: 0.035 %
# blue_tetris:
#         lines: 596
#         'ha': 17
#         %ha: 0.029 %
# Kashkin:
#         lines: 106
#         'ha': 3
#         %ha: 0.028 %
# VonSohn:
#         lines: 36
#         'ha': 1
#         %ha: 0.028 %
# spect:
#         lines: 121
#         'ha': 3
#         %ha: 0.025 %
# Tsukatu|Work:
#         lines: 49
#         'ha': 1
#         %ha: 0.020 %
# Tsukatu:
#         lines: 499
#         'ha': 10
#         %ha: 0.020 %
# Atilla:
#         lines: 301
#         'ha': 4
#         %ha: 0.013 %
# AlliedEnvy:
#         lines: 375
#         'ha': 4
#         %ha: 0.011 %