Richard Lee schreef:

> $pattern = '.*(?:' . join('|', @ARGV) . ')';

Safer:

  $pattern = '.*(?:' . join('|', map quotemeta, @ARGV) . ')';

And I would do a qr() on top of that. 

-- 
Affijn, Ruud

"Gewoon is een tijger."

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to