The other day, I was helping someone build some shelves. We decided to use the leftover screws from a different project. I was told to take the box of screws and to pick out the long black screws. Now, let's take a look at my thought process throughout this job:
use strict; # well, not really my $screw; my @box; my @box_of_good_screws; foreach $screw (@box) { if ($screw >= "1 in." && $screw =~ /black/) { push @box_of_good_screws, $screw; } }
This really happened. I actually started thinking this way at that exact moment. Pretty cool, huh?
Zenon Zabinski | zdog | zdog7@hotmail.com
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
(ar0n; lay off the caps) RE: PERL Mentality
by ar0n (Priest) on Aug 06, 2000 at 00:39 UTC | |
by zdog (Priest) on Aug 06, 2000 at 00:44 UTC | |
by gryng (Hermit) on Aug 09, 2000 at 18:25 UTC | |
|
RE: PERL Mentality
by larsen (Parson) on Aug 07, 2000 at 19:14 UTC |