Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: search for vertical bars (Russ was bored)

by Russ (Deacon)
on Jul 18, 2002 at 00:04 UTC ( [id://182653] : note . print w/replies, xml ) Need Help??

in reply to search for vertical bars

Just because I cringe at duplicated code (and my duplicate threshold is very low ;-)

Nothing at all wrong with DamnDirtyApe's answer... Like the title says, I was bored and just had to post.

if (grep {/\|/} (param('des'), param('title')){ # at least one of them matched }

Brainbench 'Most Valuable Professional' for Perl