CPAN loving monks,
Perl Monks += TMTOWTDI inspired me to re-post a question that I asked more than a year ago. In addition to following CPAN updates, reading talk slides and the advent calendar, reading other people's top 10 lists is a good way to know which modules are loved.
The original post, Favourite modules March 2002, had my own top 10 in it. It's nice to see how much has changed since then.
- I had just learned about DBIx::Abstract then, and loved the idea. Unfortunately, when using it I found that abstracting SQL only makes programs less clear and much less obvious. So I created DBIx::Simple to use DBI in a way that I like.
- The list included Exporter, but I use Exporter::Tidy now to have Exporter::Heavy-ish features with a footprint smaller than Exporter's.
- I dislike POE's way of argument passing more and more. But that's not my main reason for no longer using POE::Component::IRC (it is not even a good reason, because it's easy to wrap around). I found Irssi to be a very reliable and easy to use framework for IRC bots. (I added lots of sugar to make it even easier, though.)
- IPC::Open3 is still nice, but IPC::Run makes things extremely easy (and it's said to be more portable, but I don't care much about non-unixish systems).
- I use much more of LWP now, so mentioning LWP::UserAgent and LWP::Simple separately doesn't really make sense anymore.
So here is my module top 10 for April 2003, again excluding my own modules and pragmata.
- B::Deparse
- Carp
- DBD::SQLite
- DBI
- File::Find::Rule
- IPC::Run
- LWP
- Regexp::Common
- Benchmark
- MIME::Lite
And of course CPANPLUS to install them :)
What are your favourite modules?
Juerd
- http://juerd.nl/
- spamcollector_perlmonks@juerd.nl (do not use).
Re: Favourite modules April 2003
by mirod (Canon) on Apr 15, 2003 at 08:28 UTC
|
Here they are (there are more than 10, but that's why Perl is great: tons of super-useful modules):
Modules that make Perl what it is:
- CGI (+ CGI::Carp), I am an old school guy (but I use it with mod_perl when it makes sense though),
- DBI (+ DBD::mysql, DBD::Pg, DBD::SQLite), SQLite for quick hacks and when there is only one user, Pg most of the time,
Very useful:
- Text::Template, simple but powerful enough for me,
- YAML, successor to Data::Denter, nicer output IMHO
than Data::Dumper, safer to use too, modified to allow for
variables (a-la-XML::Simple in its latest version)
- Inline::File, an yes, I do pack templates with the code now (see Re: Favourite modules),
- Getopt::Std, I should really switch to Getopt::Long though
- Text::Iconv or Encode depending on the version of Perl available
- Scalar::Util, for weaken, that allows me to use complex data structures while still taking advantage of Perl's garbage collection,
- File::Find, I haven't switched to File::Find::Rule yet
Convenient modules I use a lot these days:
- Memoize, especially to memoize the output of the following one,
- Digest::MD5, to sort through heaps of archived data and figure out what was stored twice under different names
XML modules:
- XML::Twig, surprise surprise ;--)
- XML::Simple, battles with YAML for my configuration storage needs,
- XML::PYX, for one-liners,
- XML::LibXML, when I manage to get it installed, which is not
that often
| [reply] |
|
Just a comment/question on what you mentioned here:
- Memoize, especially to memoize the output of the following one,
- Digest::MD5, to sort through heaps of archived data and figure out what was stored twice under different names
I'm just wondering what benefit Memoize provides in this context. It seems from your brief description that you are doing MD5s of the archived data so that you don't have to keep all that data in memory (just an MD5 hash of the data). This will make it easy to find duplicates and won't take up much memory. But my memoizing it, you are still keeping all the archived data in memory, and you are keeping the MD5 hash in memory as well. You might as well just store the data itself in a hash and do a straight comparison on it saving the time required to do an MD5 hash on it.
I'm curious to know if I am blatantly missing something here, or missunderstanding the usefulness of Memoize in this context.
By the way, I think Memoize is a great module, but I don't think there are many situations where it is actually beneficial.
| [reply] |
|
The function I memoize gets passed a file name, slurps the file, normalizes spaces and computes its MD5. So I don't think the content of the file is cached, as it is internal to the function.
I agree that using Memoize only saves me the cost of a hash (filename => MD5). I just like how easy it is to use it, and how it removes some extra code. As programers we are used to adding extra data structures and code to cache that kind of result, but really, using Memoize gets us closer to the initial algorithm for solving the problem. At least that's how I justify using it here ;--)
| [reply] |
|
|
| [reply] |
|
I have heard those claims, but the data I deal with is usually quite simple, just hashes/arrays/scalars/simple objects, no code refs or the likes. So it looks accurate enough for me.
Could you be more precise and give us examples of the kind of data that causes problems with the module?
As a side note I exchanged a couple of emails with ingy when I wanted to patch the module, and he was most helpfull.
| [reply] |
Re: Favourite modules April 2003
by Corion (Patriarch) on Apr 15, 2003 at 08:51 UTC
|
My Favourite Modules in use for April 2003
- XML::XPath - XPath expressions rock da house for extracting stuff
- WWW::Mechanize - Since I do webscraping a lot
- CGI::Wiki - Since I use it for my wiki
My Favourite Modules not in use for April 2003
- File::Find::Rule - I recommend it wherever I can, but haven't used it myself yet. But I like the API.
- dotdotdot - the yadda yadda yadda operator makes for nice, compiling examples, and still prevents the user from blindly running the example without changing the minor nits.
- P6P5 by xmath - Perl 6 rules rule !
My least favourite module currently in use for April 2003
- HTML::Tidy - it's got no documentation, it's got a horrible interface from Perl, is written in C++ and (under Linux) it has a LOT of underdocumented dependencies that can't be installed through my package managers (apt-get resp. CPAN). This is the first module where installation under Windows was easier than under Linux. Watch out for HTML::Tidy::Simple, a wrapper that will try to user HTML::Tidy and, if its not there, shell out to the tidy program (which is what I now use under Linux).
ptidy sourceforge page (0 released files)
tidylib Perl bindings (got this to work)
Update: Added links to HTML::Tidy
perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ; # The
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' # web
| [reply] [d/l] |
Re: Favourite modules April 2003
by valdez (Monsignor) on Apr 15, 2003 at 12:31 UTC
|
Here is my list in no particular order:
Modules I would like to know and use:
Ciao, Valerio
update: many thanks to all the authors of these modules; please, /msg me with their nicknames at the Monastery if you know them and I'll update the list above.
update2: Thanks to rob_au and Jenda for their help.
| [reply] |
Re: Favourite modules April 2003
by AcidHawk (Vicar) on Apr 15, 2003 at 11:57 UTC
|
++ Juerd for a good idea. I am currently using a host of modules which I have varying success with. But as I do most of my work on Win32 platforms I use mostly modules that make my life easier in that environment.
I could go on but theses are really the basis of most of what I do..;)
-----
Of all the things I've lost in my life, its my mind I miss the most.
| [reply] |
Re: Favourite modules April 2003
by dreadpiratepeter (Priest) on Apr 15, 2003 at 14:06 UTC
|
At the moment:
- Parse::RecDescent - I am an old lex/yacc language designer. The other day I actually had cause to write a little language. I am overwhelmed by how flexible and powerful this module is. All the joy of yacc without all the pain of yacc Thanks Damian!
- Quantum::Superpositions - Takes a whole class of simple operations that were too complex in Perl and makes them simple again (comparing lists, set operations, etc).
- DBD::Chart DBIx::Chart - there is nothing like charts to make PHBs happy. And there is nothing like a package with which you can implement them in minutes to make you look good.
- Data::Locations - makes it simple to build text when you don't necessarily want to build it sequentially, like when building a web page. You can define handles that print into a specific part of your final output. So you could define a skeleton of a web page, have a script handle, a style handle, a body handle, etc. Write the appropriate stuff to the appropriate handle then dump it at the end.
- Data::Dumper - Couldn't function without it.
- Date::Calc - All the date manipulation I ever need, in one place.
- Spreadsheet::ParseExcel Spreadsheet::WriteExcel Allows you to use excel as a data entry mechanism. A great alternative to web forms for really complex data, or for management-type users who a very proficient in excel, but not-so-good elsewhere, Also a great report generation method.
- CPAN - best mechanism ever for automated installation. It's the life blood of what make Perl sucessful. (Although I hear the CPANPLUS is even better. It's on my short list of things to try).
-pete
"Dude, those llamas are pissed!" | [reply] |
|
Quantum::Superpositions - Takes a whole class of simple operations that were too complex in Perl and makes them simple again (comparing lists, set operations, etc) - that was a suprise for me. The name does not idicate that it's such a general purpose module.
| [reply] |
|
I've known about Q::S for a long time, but I always thought it's a joke (and inefficiently implemented) that TheDamian forgot to put inside the Acme namespace :) (Don't know where I got that impression). However, I happily admit that I was wrong -- there is quite a number of articles and nodes about Q::S now that show its usefulness. It was only today that Randal posted a link showing how to win football bets all the time using Q::S :).
Also, recent versions seem to be rather efficient. I haven't looked at the source yet, but I assume that it's more efficient and better debugged than anything I'd quickly hack together if I were in the need for it.
| [reply] |
|
|
|
|
A surprise to me as well, and I'll be reviewing it again.
As dense as I must be, from having read about it earlier, I guess I didn't understand the viewpoint or jargon or whatever from various write-ups, including it's own docs. I never thought I was stupid... but maybe I should rethink that...
| [reply] |
|
| [reply] |
|
Just a word of caution to anyone seduced by the power of Quantum::Superpositioning (as I was around 10 months ago:) : Quick, it ain't; Memory hungry it is.
It's a fun, and very powerful demonstraton of some powerful concepts, but using it in workaday code is costly. To demonstrate that, I reimplemented the brute force algorithms shown in the Q::S pod for is_prime(), factors() and GCD() using fairly standard perl, and the result show that this is not permature micro-optimisation I am talking about:
The benchmark
The results
D:\Perl\test>qs-test
s/iter Q::S perl
Q::S 282 -- -98%
perl 4.87 5702% --
Primes found: Q::S:1229; Perl:1229
s/iter QS_factors PL_factors
QS_factors 322 -- -100%
PL_factors 0.120 267905% --
qs:90 80 2 48 180 360 18 72 30 144 16 6 240 120 3 36 40 9 12 15 20 8 4
+ 60 24 45 10 5
pl:2 3 4 5 6 8 9 10 12 15 16 18 20 24 30 36 40 45 48 60 72 80 90 120 1
+44 180 240 360
s/iter QS_GCD PL_GCD
QS_GCD 336 -- -100%
PL_GCD 0.148 226174% --
QS:60 - PL:60
To put that into perspective, the non-Q::S version of is_prime() will find the 9592 prime < 100,000 in approximately half the time the Q::S version finds the 1229 < 10,000.
The non Q::S version of factors() will find the approx: 400,000 factors of 2!..9! in around a 5th of the time required by the Q::S version to find the approx 6000 factors of 2! .. 6!.
And The non-Q::S version will perform the approx: 400,000 divisions and int's and the approx: 800,000 comparisons involved in finding the GCD() (using this algorithm) between each succesive pair of factorial 2! thru 9! in about 1/5th the time taken for the Q::S version to do the (approx) 12,000 divisions, 6,000 int's and 12,000 comparisons.
Even when used for simple testing of arrays against constants Eg.if (all(@array) != 1) {...) the overheads are quite heavy and can quite quickly invoke swapping if your arrays are of any size.
Hopefully, once the functionality is moved into the core as C or XS, this caveat will disappear.
Examine what is said, not who speaks.
1) When a distinguished but elderly scientist states that something is possible, he is almost certainly right. When he states that something is impossible, he is very probably wrong.
2) The only way of discovering the limits of the possible is to venture a little way past them into the impossible
3) Any sufficiently advanced technology is indistinguishable from magic.
Arthur C. Clarke.
| [reply] [d/l] [select] |
Re: Favourite modules April 2003
by PodMaster (Abbot) on Apr 15, 2003 at 11:16 UTC
|
I too am leaving out modules I maintain (btw I contribute on a lot of my faves )...
- Wx -- aaaaaw yeah!!!!!!!
- ExtUtils::Installed -- I use this a LOT
- PPM::Make -- this one as well
- ExtUtils::ParseXS -- this should be core (this is how xsubpp should be done)
- CGI::Wiki::Simple -- not bad, could be better ;)
- File::Spec -- portability, damn I like it
- Regexp::Common -- beginning to like it a lot
- Mail::Box -- it's getting better
- Audio::Beep -- fun ;D
- Module::Dependency::Grapher -- also fun
- CGI::Application -- I still love it ;)
- DB_File and/or BerkeleyDB -- and these, but you knew that ;D
There are a couple of others that could be on my list, but are currently unfinished, so they are not (CPANPLUS for example, or Test::Smoke).
MJD says you
can't just make shit up and expect the computer to know what you mean, retardo!
I run a Win32 PPM
repository for perl 5.6x+5.8x. I take requests.
** The Third rule of perl club is a statement of fact: pod is sexy.
|
| [reply] |
|
File::Spec -- portability, damn I like it
Except when it makes your life hell due to incompatability with other modules, as you have to regex everything into Unix style to get modules like File::Basename to work with it. Or try using with a file upload from an OS that isn't the same as the server. As a consequence I now avoid it like the plague.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Barbie
Birmingham Perl Mongers
Web Site: http://birmingham.pm.org/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| [reply] |
|
Could you add some more information about the incompatabillity prolem? I thought File::Spec was the way to go and I use it in one of my projects.
| [reply] |
|
The trouble you seem to be having is because you haven't read the fileparse_set_fstype portion of the File::Basename docs.
Anyway, I know its been a year since you wrote this, but I finally wrote fileparse (just for completeness) and thought I'd share.
sub File::Spec::dirname {
my $self = shift;
return $self->catpath( ( $self->splitpath(shift) )[ 0, 1 ] );
}
sub File::Spec::basename {
my $self = shift;
my $name = shift;
return ($self->fileparse($name, map("\Q$_\E",@_)))[0];
}
sub File::Spec::fileparse {
my $self = shift;
my( $suffix, $path, $name ) = $self->splitpath(shift);
$path = $self->catpath( $suffix, $path, '' );
for my $s(@_){
$self =~ s/($s)$//i and last;
}
$suffix = $1 ? $1 : undef;
wantarray ? ( $name, $path, $suffix ) : $name;
}
Check out file.spec.basename.txt
to test the above with the File::Basename test suite.
MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!" | I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README). | ** The third rule of perl club is a statement of fact: pod is sexy. |
| [reply] [d/l] |
|
Maybe you'd like Path::Class better. I sure do, and I hope it isn't just because I wrote it.
-Ken
| [reply] |
|
Re: Favourite modules April 2003
by hiseldl (Priest) on Apr 15, 2003 at 14:33 UTC
|
| [reply] |
Re: Favourite modules April 2003
by MrCromeDome (Deacon) on Apr 15, 2003 at 14:06 UTC
|
Here's my 10 faves, in no particular order:
- HTML::Template - For keeping Perl tidy
- DBI - Because I shouldn't have to change my programs because I change databases
- XML::Simple - I don't know much about XML, but this has been a help to me
- Mail::SpamAssassin - Because I HATE SPAM!
- File::Slurp - It frequently helps me save a few lines of code here and there
- CGI::Carp - Still too many dumb mistakes
- CGI - When it has to be done quick and dirty, accept no subsitute.
- Archive::Zip - Makes delivering our applications and other stuff to our clients a breeze
- Imager - Tremendously easy to work with images and scanned documents
- LWP::UserAgent - Too many uses to list.
There's more I love and use, but these are the ones that have served me best, from my baby Perl days till now (only slightly better than baby Perl, I'd imagine :P)
MrCromeDome | [reply] |
Re: Favourite modules April 2003
by crenz (Priest) on Apr 15, 2003 at 09:23 UTC
|
Good post, Juerd! I don't have a long list to offer myself. This month is spam-catching month for me... I finally got around writing myself a nice mail filter. My top two modules for this month are
| [reply] |
Re: Favourite modules April 2003
by dws (Chancellor) on Apr 15, 2003 at 17:13 UTC
|
Top of the List for April, 2003
I'm finding that
make a kick-ass combination for adding usage information to scripts, and
is letting me throw out a lot of grotty, hand-rolled scraping code.
| [reply] |
Re: Favourite modules April 2003
by ignatz (Vicar) on Apr 15, 2003 at 15:48 UTC
|
()-()
\"/
`
| [reply] |
Re: Favourite modules April 2003
by Aristotle (Chancellor) on Apr 15, 2003 at 23:52 UTC
|
I'm currently totally infatuated with the following:
The following modules are basic stuff and don't get you far on their own (as opposed with the ones listed above). Still, they're so useful I could not imagine living without them anymore.
- strict - need I say more?
- LWP - feels kludgy at times, but rock solid and reliable, nevertheless
- CGI - dito
- Getopt::Long - turning q&d tenliners into
flexible tools amazingly quickly
- File::Spec::Functions - symbolic manipulation makes for readability and portability
- Data::Dumper - Words cannot do this module justice. I've used it in so many different situations, from communication to debugging to logging to persistence, that it alone deserves as much praise as all other modules together. And I'm not sure that'd be doing it justice. Along with it, Safe, while not used much, deserves a mention.
Besides those, Mail::SpamAssassin and Perl::Tidy have earned an honorary mention for doing good work on my system, though I don't use them directly. I like Cache::Cache and friends, but don't need those often. Modules that might have made my "infatuated" list, had I had much opportunity to use them, include Log::Log4perl, WWW::Mechanize, DBD::SQLite, URI::Find, Inline::TT, Tie::File, Inline::File, CGI::Application, Email::Valid, and more.
Makeshifts last the longest.
| [reply] |
Re: Favourite modules April 2003
by hsmyers (Canon) on Apr 15, 2003 at 21:57 UTC
|
Here, including my own stuff are my top 20 according to useage---
- 0010, Carp::Assert
- 0011, XML::Twig
- 0012, Chess::PGN::Moves
- 0013, Carp
- 0013, Wild
- 0016, Chess::PGN::Filter
- 0016, Getopt::Std
- 0017, Parse::RecDescent
- 0018, File::Basename
- 0021, DB_File
- 0021, Pod::Usage
- 0022, Text::Wrap
- 0023, Getopt::Long
- 0027, Text::DelimMatch
- 0032, Text::CSV
- 0039, Chess::PGN::Parse
- 0045, Test
- 0046, ExtUtils::MakeMaker
- 0048, Data::Dumper
- 0062, Chess::PGN::EPD
- 0068, constant
- 0223, diagnostics
- 0223, warnings
- 0239, strict
How do I know this? Fairly easy, go to the root of your Perl development tree on the box of your choice and append the results of 'grep -rd "^use " *.pl' to this:
#!/perl/bin/perl
#
# use.pl -- statistics for 'use' module name.
use strict;
use warnings;
use diagnostics;
my %module;
my @list;
while (<DATA>) {
if (/^use\s(.*?);/) {
my $what = $1;
if ($what =~ /^lib/) {
$module{'lib'}++;
}
elsif ($what =~ /^constant/) {
$module{'constant'}++;
}
else {
$module{$what}++;
}
}
}
for (keys %module) {
push(@list,sprintf("%04d|%s",$module{$_},$_));
}
for (sort @list) {
my($howmany,$what) = split /\|/;
print "$howmany, $what\n";
}
__DATA__
And then run the script...
--hsm
"Never try to teach a pig to sing...it wastes your time and it annoys the pig." | [reply] [d/l] |
|
You can certainly do alot better than that long piece of code for this task though. The last two loops can be combined:
for (sort { $module{$a} <=> $module{$b} } keys %module) {
printf "%04d, %s\n", $module{$_}, $_;
}
Gets you rid of the synthetic @list too. I have no idea what your if/elsif are supposed to sort out, either. And finally, instead of using <DATA>, you can use <> and just pipe the output from grep to the script. A compressed version:
/^use\s+([^\s;]+)/ && $_{$1}++ while <>;
printf "%04d, $_\n", $_{$_} for sort { $_{$b} <=> $_{$a} } keys %_;
And then it's just
$ grep -hr ^use perl/ | perl foo.pl
Makeshifts last the longest. | [reply] [d/l] [select] |
|
Does usage though == favourite module? (Thanks for the code snip it though!)
----
Zak
Pluralitas non est ponenda sine neccesitate - mysql's philosphy
| [reply] |
Re: Favourite modules April 2003
by Solo (Deacon) on Apr 15, 2003 at 21:17 UTC
|
| [reply] |
Re: Favourite modules April 2003
by toma (Vicar) on Apr 16, 2003 at 04:48 UTC
|
| [reply] |
Re: Favourite modules April 2003
by l2kashe (Deacon) on Apr 16, 2003 at 19:59 UTC
|
From a little old unix admin:
IO::Socket
FileHandle
File::Find
DBI ( et all )
Getopt::Std
SNMP, Net::SNMP, SNMP::Session (*ick* but necessary)
Net::(Ldap | SSH | SCP | FTP | Telnet)
Date::Manip
I think that about sums it up for the admin side..On the reporting side
CGI ( though I almost loath HTML, manager types like it)
GD::*, as well as the chart family and 3D stuff in there as well
MMMMM... Chocolaty Perl Goodness..... | [reply] |
Re: Favourite modules April 2003
by zakzebrowski (Curate) on Apr 16, 2003 at 18:39 UTC
|
No one mentioned Date::Manip so I'll add that to the list...
----
Zak
Pluralitas non est ponenda sine neccesitate - mysql's philosphy | [reply] |
Re: Favourite modules April 2003
by m-rau (Scribe) on Feb 10, 2005 at 09:26 UTC
|
Currently my favorite modules are
- XML::Smart
- DBI
Currently my standard modules are
- Getopt::Long
- Pod::Usage
- Config::IniFiles
- File::MkTemp
Currently I am pretty excited about
- POE
and especially
- POE::IKC::Server
- POE::IKC::Client
- POE::Session
The thing with the POE modules is, that I am really a little bit confused about the following thoughts in my mind
- will these modules be replaced with a better framework?
- is there still activity in the enhancements of the modules (especially IKC)
Any thoughts about these questions are very welcome. What are your experiences with POE? | [reply] |
|
|