Incognito's TL Mafia XVI - Page 37

use strict;
use warnings;

my @players = split '\n', "Ng5
magicbullet
Abenson
DoctorHelvetica
citi.zen
ohN
The_Master
Jayme
CynanMachae
blue_arrow
Hyperbola
Mystlord
Fallen_arK
t_co
tredmasta
StimiLant
Faronel
meeple
Bill Murray
ghote
789
flamewheel91
Nikoner
Phrujbaz
Zona
Ser Aspi
derfboy
Jugan
keit
JohannesH
kane]deth[
skronch
dinmsab
[NyC]HoBbes";

open my $inp, '<', 'page.htm';
my @page_content = <$inp>;

my $page_content = join '', @page_content;

my @posts = split "style='vertical-align:middle;' alt=''>&nbsp;", $page_content;

shift @posts;

my %n_posts;

foreach my $a_player (@players) {
  $n_posts{$a_player} = 0;
}
foreach my $one_post (@posts) {
  (my $author) = $one_post =~ /(.*?) &nbsp/;
  if (exists $n_posts{$author}) {
    ++$n_posts{$author};
  }
}
foreach my $k (reverse sort {$n_posts{$a} <=> $n_posts{$b} } keys %n_posts) {
  print "$k: $n_posts{$k}\n";
}