my @machines = qw(c1h1 c1h2 ... c5h7); for my $machine (@machines) { if ($machine =~ /h7$/) { process_special($machine) } else { process_normal($machine) } }
-><- -><- -><- -><- -><-
All things are Perfect
To every last Flaw
And bound in accord
With Eris's Law
- HBT; The Book of Advice, 1:7
In reply to Re: Data Structure Design
by jwest
in thread Data Structure Design
by Tuna
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |