RE: Should Perl Gurus (Wall,Schwartz,Christiansen et al) receive mega XP based on who they are?

[lhoward]

One thing you could do would be to automatically give XP based on name/e-mail address appearing in the core perl distribution source-code and also points for each CPAN module they have authored. Here's some quick code I cobbled together to give a list of e-mail addresses and # of perl modules contributed to CPAN....

#!/usr/bin/perl -w

use strict;
use LWP::Simple;

my $authors = get("http://www.cpan.org/authors/00whois.html");
my %aem;
my %aec;
while($authors=~/A NAME=\"([A-Z]+)\"\>.+?\&lt\;([^\&]*)\&gt\;/gcs){
  $aem{$1}=$2;
  $aec{$1}=0;
}
my $modules = get("http://www.cpan.org/modules/01modules.index.html");
while($modules=~/A HREF=\"[^\"]+authors[^\"]+\"\>([A-Z]+)\<\/A\>\s+\<A
+ HREF=\"[^\"]+\"\>([^\<]+)/gcs){
  $aec{$1}++;
}

my $k;
foreach $k (sort keys %aem){
  if($aec{$k}>0){
    printf "%4d %s\n",$aec{$k},$aem{$k};
  }
}

[cciulla]

I concur.

Perhaps Y XP for every useful package/module?

Especially Net::Syslog and Number::Spell. :)