Keith received a ticket regarding a very large, very important, and very complex application, written in Perl. Keith’s first step was to scan the file for variables, so he could get a better sense of things he should look out for.
He found this:
$blank1 = " ";
$blank2 = " ";
$blank3 = " ";
$blank4 = " ";
$blank5 = " ";
$blank6 = " ";
$blank7 = " ";
$blank8 = " ";
$blank9 = " ";
$blank10 = " ";
Confused, Keith tracked down the developer responsible and asked why it was there.
“Sometimes I needed to check how many spaces were in a given string,” the programmer explained.
“What if you needed to check for something with 11 spaces in it?” Keith meant the question as a joke.
“Oh, then I just concatenate $blank1
and $blank10
together. It’s very extensible
!”