All the Perl that's Practical to Extract and Report
use Perl Log In
Ovid (2709)
(email not shown publicly)
http://publius-ovidius.livejournal.com/
AOL IM: ovidperl (Add Buddy, Send Message)
Stuff with the Perl Foundation. A couple of patches in the Perl core. A few CPAN modules. That about sums it up.
Fun code problem of the day!
No one who works here would ever write such a monstrosity and we're not sure exactly where this code originated, but somehow it wound up on a server and a co-worker asked me to take a look and figure out what was up. I knew things were bad when I saw the beginning of it:
die "\nArguments:\n
-a | -p | -x\t\tServers: all / production / eXclude production
\t\t\tDefault: exclude production
-d<days> [-h<hours>] | -m <month, 1-12>\t\tMANDATORY
-n<num servers | all>\t\t\t\tMANDATORY
[-i<ipaddress>]\t\t\t\t\toptional, specify host
[-s<500|5000>]\t\t\t\t\toptional for HTMLified output.
\t\t\t\t\t\tSize limit in MB.
[-z]\t\t\t\t\t\toptional, HTMLify output
[-t <1-12>]\t\t\t\t\tExclusive option - get totals for month <n>
\t\t\t\t\tUse in conjunction with either -a, -p, -x
\n\n"
unless (($opt_a || $opt_p || $opt_x || $opt_i)
&&
(((($opt_d || $opt_h) && !$opt_m)
||
(!$opt_d && !$opt_h && $opt_m))
&&
(($opt_n && !$opt_i) || $opt_i)) || $opt_t);
I pour myself a cup of strong coffee. :-)
-- Jarkko Hietaniemi
Ouch (Score:2)
Basically... (Score:2)
Re: (Score:1)
Re: (Score:2)
Given your response to another journal entry, I expect you might be considering a job with them. I used to work for them and I'm quite happy with them. If they offer you a job, jump at the chance. They have great programmers working for them and you'll learn a ton.