Regarding Option parsing modules - this is not to bug you
into using them, but rather an option for others to
decide.
I though to myself, "hmmmm ... let's use TheDamian's
Getopt::Declare" and proceded to RTFM. I had
always wanted to learn this module, and now seemed like
the time.
After about 40 minutes of racking my brain (:D) i finally
came up with this:
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use Getopt::Declare;
# -h, -v, --help, --version are included
# and these are tabs - not spaces!
my $spec = q(
-a List all matches
--all [ditto]
);
my $args = Getopt::Declare->new($spec);
my $all = $args->{'--all'} || $args->{'-a'};
for my $woord ($args->unused) {
# insert for loop block innards from code above
}
But that is 40 minutes of well spent time, because now i
see the power of this module. And thanks to the
Von Neumann bottleneck of having to retrieve
the page from the Internet, the fact that Getopt::Declare
is slower than the option parsing code above is negligible.
P.S. i also have no quandaries about using regexes to
parse HTML, just as long as the coder understands how to
use the CPAN HTML parsers. Sometimes using regexes really
is easier. Sometimes.
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
|