All the Perl that's Practical to Extract and Report
use Perl Log In
stu42j (6348)
Monday August 27, 2007
02:49 PM
TIMTOWTDI-NAOTAG
There Is More Than One Way To Do It - Not All Of Them Are Good.
Some legacy code that I am working on, frequently uses this "interesting" idiom for getting the first element of an array.
my @array = some_function();
my $i = 0;
foreach my $hash (@array) {
$i++;
$var = $hash->{somekey};
last;
}
I am particularly puzzled by the unused $i.
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
I pour myself a cup of strong coffee. :-)
-- Jarkko Hietaniemi
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
looks like "leftover cassarole" (Score:2)
Good grief (Score:1)
Smells strongly like programming by coincidence, probably due to cargo cult copy-pasting.