Phalanx top 100 CPAN modules golf

Andrew Savige <[email protected]>
Newsgroups gmane.comp.lang.perl.fun
Message-ID <[email protected]>
The Phalanx project top 100 CPAN modules has just been published:

http://qa.perl.org/phalanx/distros.html

To get a report sorted by most prolific author, I wrote this
little program (using a good ol' GR-Transform):

#!perl -lp
/ /;$A{$'}.=$".$`}for(map{s}.}9-$&}e;$_}sort
map{9-$A{$_}=~y. ...sprintf" %-10s:$A{$_}",$_}keys%A){

Anyone care to golf it?

Given this input file:

CPANPLUS KANE
Compress-Zlib PMQS
DBD-mysql JWIED
DBI TIMB
HTML-Parser GAAS
libwin32 GSAR
libwww-perl GAAS
MailTools MARKOV
MIME-Base64 GAAS
URI GAAS
Date-Calc STBEY
DBD-Oracle TIMB
Digest-HMAC GAAS
Digest-SHA1 GAAS
GD LDS
HTML-Tagset SBURKE
IO-Socket-SSL BEHROOZI
IO-stringy ERYQ
Mail-SpamAssassin JMASON
MIME-Lite YVES
MIME-tools ERYQ
Net-DNS CREIN
Net-Telnet JROGERS
Net_SSLeay.pm SAMPO
Parse-RecDescent DCONWAY
Spreadsheet-WriteExcel JMCNAMARA
Template-Toolkit ABW
Term-ReadLine-Perl ILYAZ
XML-Parser COOPERCL
XML-Simple GRANTM
Apache-DBI ABH
Apache-Session JBAKER
AppConfig ABW
Archive-Tar KANE
Archive-Zip NEDKONZ
bioperl BIRNEY
Bit-Vector STBEY
Cache-Cache DCLINTON
CGI-Application JERLBAUM
CGI-Kwiki INGY
CGI-Session SHERZODR
Class-DBI TMTM
Config-IniFiles WADG
Convert-ASN1 GBARR
Crypt-Blowfish DPARIS
Crypt-CBC LDS
Crypt-DES DPARIS
Crypt-SSLeay CHAMAS
Data-ShowTable AKSTE
DateManip SBECK
DBD-CSV JZUCKER
DBD-ODBC JURL
DBD-Pg MERGL
DBIx-SearchBuilder JESSE
Error UARUN
Expect RGIERSIG
GDGraph MVERB
GDTextUtil MVERB
HTML-Mason DROLSKY
HTML-Template SAMTREGAR
HTML-Tree SBURKE
Image-Info GAAS
Image-Size RJRAY
Inline INGY
IO-Tty RGIERSIG
libapreq JOESUF
libxml-perl KMACLEOD
Mail-Box MARKOV
Mail-Sendmail MIVKOVIC
MD5 GAAS
Module-Build KWILLIAMS
MP3-Info CNANDOR
Msql-Mysql-modules JWIED
Net-Daemon JWIED
Net-SNMP DTOWN
Net-SSH-Perl BTROTT
PAR AUTRIJUS
Params-Validate DROLSKY
PDF-API2 AREIBENS
PDL KGB
perl-ldap GBARR
PerlMagick JCRISTY
POE RCAPUTO
Regexp-Common ABIGAIL
Scalar-List-Utils GBARR
SOAP-Lite KULCHENKO
SPOPS CWINTERS
Spreadsheet-ParseExcel KWITKNR
TermReadKey KJALB
Text-CSV_XS JWIED
Text-Iconv MPIOTR
Time-modules MUIR
TimeDate RSE
WWW-Mechanize PETDANCE
XML-DOM TJMATHER
XML-LibXML PHISH
XML-SAX MSERGEANT
XML-Writer DMEGG
XML-XPath MSERGEANT
YAML INGY

it produces this report:

8 GAAS      : HTML-Parser libwww-perl MIME-Base64 URI Digest-HMAC
Digest-SHA1 Image-Info MD5
4 JWIED     : DBD-mysql Msql-Mysql-modules Net-Daemon Text-CSV_XS
3 GBARR     : Convert-ASN1 perl-ldap Scalar-List-Utils
3 INGY      : CGI-Kwiki Inline YAML
2 ABW       : Template-Toolkit AppConfig
2 DPARIS    : Crypt-Blowfish Crypt-DES
2 DROLSKY   : HTML-Mason Params-Validate
2 ERYQ      : IO-stringy MIME-tools
2 KANE      : CPANPLUS Archive-Tar
2 LDS       : GD Crypt-CBC
2 MARKOV    : MailTools Mail-Box
2 MSERGEANT : XML-SAX XML-XPath
2 MVERB     : GDGraph GDTextUtil
2 RGIERSIG  : Expect IO-Tty
2 SBURKE    : HTML-Tagset HTML-Tree
2 STBEY     : Date-Calc Bit-Vector
2 TIMB      : DBI DBD-Oracle
1 ABH       : Apache-DBI
1 ABIGAIL   : Regexp-Common
1 AKSTE     : Data-ShowTable
1 AREIBENS  : PDF-API2
1 AUTRIJUS  : PAR
1 BEHROOZI  : IO-Socket-SSL
1 BIRNEY    : bioperl
1 BTROTT    : Net-SSH-Perl
1 CHAMAS    : Crypt-SSLeay
1 CNANDOR   : MP3-Info
1 COOPERCL  : XML-Parser
1 CREIN     : Net-DNS
1 CWINTERS  : SPOPS
1 DCLINTON  : Cache-Cache
1 DCONWAY   : Parse-RecDescent
1 DMEGG     : XML-Writer
1 DTOWN     : Net-SNMP
1 GRANTM    : XML-Simple
1 GSAR      : libwin32
1 ILYAZ     : Term-ReadLine-Perl
1 JBAKER    : Apache-Session
1 JCRISTY   : PerlMagick
1 JERLBAUM  : CGI-Application
1 JESSE     : DBIx-SearchBuilder
1 JMASON    : Mail-SpamAssassin
1 JMCNAMARA : Spreadsheet-WriteExcel
1 JOESUF    : libapreq
1 JROGERS   : Net-Telnet
1 JURL      : DBD-ODBC
1 JZUCKER   : DBD-CSV
1 KGB       : PDL
1 KJALB     : TermReadKey
1 KMACLEOD  : libxml-perl
1 KULCHENKO : SOAP-Lite
1 KWILLIAMS : Module-Build
1 KWITKNR   : Spreadsheet-ParseExcel
1 MERGL     : DBD-Pg
1 MIVKOVIC  : Mail-Sendmail
1 MPIOTR    : Text-Iconv
1 MUIR      : Time-modules
1 NEDKONZ   : Archive-Zip
1 PETDANCE  : WWW-Mechanize
1 PHISH     : XML-LibXML
1 PMQS      : Compress-Zlib
1 RCAPUTO   : POE
1 RJRAY     : Image-Size
1 RSE       : TimeDate
1 SAMPO     : Net_SSLeay.pm
1 SAMTREGAR : HTML-Template
1 SBECK     : DateManip
1 SHERZODR  : CGI-Session
1 TJMATHER  : XML-DOM
1 TMTM      : Class-DBI
1 UARUN     : Error
1 WADG      : Config-IniFiles
1 YVES      : MIME-Lite

/-\



http://search.yahoo.com.au - Yahoo! Search
- Looking for more? Try the new Yahoo! Search
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.