Syntactic Confectionery Delight | |
PerlMonks |
Re^2: no grep match returns undefined?by Aristotle (Chancellor) |
on Sep 06, 2002 at 04:59 UTC ( [id://195571]=note: print w/replies, xml ) | Need Help?? |
You can get rid of both temporary variables that way too. Step 1:
Step 2: if($args->{desc} =~ /@{[join '|', keys %vendors]}/) { ... } else { ... } Depending on your Perl prowess you may or may not find step 2 readable. Makeshifts last the longest.
In Section
Seekers of Perl Wisdom
|
|