(jeffa) Re: Favourite modules

[jeffa]

strict

Super module number 1!

jeffa

the hell it don't count!

Ok ok, here are some more:

• DBI
• HTML::Template
• DBIx::XML_RDB
• DBD::SQLite
• Apache::MP3
• Config::General
• SPOPS

And the plug (and it really is a fav of mine):

• DBIx::XHTML_Table

update - i ran a script that scanned all .pl and .cgi files to see which modules i use the most (using Perl to make up my mind ;)). So, using Juerd's rules this time:

1. Data::Dumper (102)
2. CGI (81)
3. DBI (52)
4. IO::File (31)
5. Getopt::Std (24)
6. CGI::Carp (24)
7. LWP::Simple (22)
8. HTTP::Request::Common (20)
9. LWP (17)
10. SOAP::Lite (15)

Per demerphq's request - here it is. If anybody feels like making an improvement or two, then ++'s for you. I do know that this code trudges through perldoc as well as code ... that needs to be fixed.

#!/usr/bin/perl -w

use strict;
use File::Find;

@ARGV   = ();
my %mod = ();

# does this look familiar merlyn? :)
find sub { 
   push @ARGV, $File::Find::name if /\.pl\z/ or /\.cgi\z/;
}, qw(/dirs /to/scan/here); 

while (<>) {
   $mod{$1}++ if /use\s+([A-Za-z_:]+);/;
}

# top 20 so i can filter out those that don't count :P
print "Top Twenty:\n";
print map {"<li>[kobe://$_] ($mod{$_})\n"} (sort {$mod{$b} <=> $mod{$a
+}} keys %mod)[0..19];

[rnahi]

Not airtight, but it will skip the POD.


my $in_pod=0;
my $argcount = scalar @ARGV;
while (<>) {
   # deals with uncorrect POD left open at the end
   # of the file
   if ($argcount > scalar @ARGV) {
        $in_pod=0;
        $argcount--;
   }
   if ($in_pod) {
       $in_pod = not /^=cut/;
   } else {
       $in_pod = /^=\w/;
   }
   next if $in_pod; # skip lines inside POD
   $mod{$1}++ if /use\s+([A-Za-z_:]+);/;
}

[gellyfish]

scanned all .pl and .cgi files to see which modules i use the most

Heh, I get something totally different if I do that:

• strict (723)
• Test (139)
• SOAP::Lite (84)
• DBI (74)
• Data::Dumper (71)
• Math::BigInt (56)
• Text::Wrap (56)
• CGI (53)
• Template (50)
• File::Find (40)
The first two are unsurprising :)

/J\

[demerphq]

update - i ran a script that scanned all .pl and .cgi files to see which modules i use the most (using Perl to make up my mind ;)).

And the code is posted where?

;-)

Yves / DeMerphq
--
When to use Prototypes?
Advanced Sorting - GRT - Guttman Rosler Transform