Skip to content

You know you've been looking at Perl too long when…

This:

sub strdec($) {
  return (split(/ /, $_[0]))[0] . " " . ((split(/ /, $_[0]))[1] - 1);
}

seems like a good idea.

Kill me now.

And do I go back and rip it out to do things in a sane way?

No, of course not. I add this comment:

# I'm not sure I want to admit to the horror to which the act of
# explaining this necessarily requires me to admit.

Gah.

I'm going the fuck home. Bye.

Post a Comment

Your email is never published nor shared. Required fields are marked *
*
*