http://www.perlmonks.org?node_id=9500


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

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}; } }