#!/usr/bin/perl -wT
use strict;
use LWP::Simple;
use HTML::TableExtract;

my $maxmonks     = 2000;
my $monksperpage = 50;
my $tinymicros   = 'http://tinymicros.com/pm/index.php?goto=MonkStats&start=';

my $te = new HTML::TableExtract( headers =>
                                     ['Rank','Node ID','Name','Experience'],
                               );

my $offset = 0;
while ($offset < $maxmonks) {
  my $html = get("$tinymicros$offset");
  $te->parse($html);
  $offset+=$monksperpage;
}

print "NodeID  Name           Experience\n";
my $maxid = 0;
for my $ts ($te->table_states) {
  for my $row ($ts->rows) {
    my ($rank,$nodeid,$name,$xp) = @$row;
    if ($nodeid > $maxid) {
      printf("%6d  %-14s %7d\n",$nodeid,$name,$xp);
      $maxid = $nodeid;
   }
  }
}