I don't have any good examples of my old bad code. But I'm referring to comments on how the Perl code is working when it is totally unnecessary. Comments like
# Make '3' into '03'
$some_value = sprintf "%02d", $some_value;
or perhaps code snippets where it can easily be reduced -- note that this is a contrived example, because I tend to collapse my conditionals if possible (and have for a very long time). But still it illustrates my point:
my $time = localtime();
if ($time =~ /^Tue/i) {
if ($time =~ /2005$/) {
print "It's some Tuesday in 2005\n";
}
}
|