Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

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

by lhoward (Vicar)
on Apr 28, 2000 at 03:00 UTC ( #9500=note: print w/ replies, xml ) Need Help??


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


Comment on RE: Should Perl Gurus (Wall,Schwartz,Christiansen et al) receive mega XP based on who they are?
Download Code
RE: RE: Should Perl Gurus (Wall,Schwartz,Christiansen et al) receive mega XP based on who they are?
by cciulla (Friar) on Apr 29, 2000 at 03:51 UTC
    I concur.

    Perhaps Y XP for every useful package/module?

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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://9500]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (8)
As of 2014-08-20 07:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (107 votes), past polls