[Wellington-pm] Presentations next month.

michael at diaspora.gen.nz michael at diaspora.gen.nz
Tue May 30 18:24:38 PDT 2006

I went through the page at http://wellington.pm.org/archive/index.html,
and extracted the names of past presenters.  After cleaning up some
duplicates courtesy of mis-spellings, we end up with the following list,

I think it's clear that others need to step up to the plate, or that we
should rename ourselves the Grant McLean Fan Club :).

(Unfortunately, I can't help, as I really really don't have the time
this month.  And I presented last month.  So there.  Maybe next month,
if I can think of anything.)

    -- michael.

The list:

19       Grant McLean
8        Sam Vilain
6        Michael Robinson
4        Finlay Thompson
3        Geoff Cant
2        Peter Love
2        Srdjan Jankovic
1        Finaly Thompson
1        Dan Morrison
1        Dave Moskovitz
1        Douglas Bagnall
1        Simon Green
1        Andrew MacMillan
1        Ewen McNeill
1        Don Christie
1        Martin Langhoff
1        Matt Hunt
1        Andrew McMillan
1        Steve Baker
1        Stephen Judd
1        Andrew Ruthven
1        Leslie Walker
1        Peter Kelly

And the code:

use LWP::Simple;
use strict;
my $str = get('http://wellington.pm.org/archive/');
my %presenters;
while ($str =~ m{
                ^ \s*    # start of line, with optional whitespace
                <td [^>]* > # td tag, with optional attributes
                (\S+)    # CAPTURED: first name
                [ \t]+   # whitespace, but not a newline
                (\S+)    # CAPTURED: last name
                </td>    # closing tag
                \s* $    # end of line
    next if $1 eq "<a";
    $presenters{"$1 $2"} ++;

print   join "\n",
        map { "$presenters{$_}\t$_" }
        sort { $presenters{$b} <=> $presenters{$a} } 
        keys %presenters;

print   "\n";

More information about the Wellington-pm mailing list