Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
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 ( [id://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}; } }

Replies are listed 'Best First'.
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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://9500]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2024-03-19 09:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found