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 %

=cut