Regex Question

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Regex Question by diotalevi (Canon) on Jul 12, 2006 at 17:54 UTC
`/(pass\|admin)/` ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊	[reply] [d/l]
Re^2: Regex Question by ikegami (Patriarch) on Jul 12, 2006 at 18:03 UTC
or just `/pass\|admin/` if you don't need to know which word was used. Incidently, not using captures greatly speeds up the regexp.	[reply] [d/l]
Re^3: Regex Question by diotalevi (Canon) on Jul 12, 2006 at 18:17 UTC
You're exageratting. It's just a password, not an epic. I would have said `/(?:admin\|pass)/` but figured I'd just go with the more readable (though slightly penalized) `/(admin\|pass)/`. ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊	[reply] [d/l] [select]
Re^4: Regex Question by ikegami (Patriarch) on Jul 12, 2006 at 18:21 UTC
Re: Regex Question by Ieronim (Friar) on Jul 12, 2006 at 18:17 UTC
One of the most scalable ways: `my @badwords = qw/pass admin qwerty/; #continue as you want if (grep { $pass =~ /$_/ } @badwords) { print "Bad password!" }` [download]	[reply] [d/l]
Re^2: Regex Question by ikegami (Patriarch) on Jul 12, 2006 at 18:25 UTC
Close. `if (grep { $pass =~ /$_/ } map quotemeta, @badwords) {` or `if (grep { index($pass, $_) >= 0 } @badwords) {` or `my $re = join '\|', map quotemeta, @badwords;` `if ($pass =~ /$re/) {`	[reply] [d/l] [select]
Re^3: Regex Question by Ieronim (Friar) on Jul 12, 2006 at 23:17 UTC
Less scalable, as you cannot add regexes to @badwords ;)	[reply]
Re^4: Regex Question by ikegami (Patriarch) on Jul 12, 2006 at 23:56 UTC
Re^2: Regex Question by Anonymous Monk on Jul 12, 2006 at 18:32 UTC
or even use index() instead of the regex.... `for @badwords { print "shame on you" if index $pass, $_ > -1; }` [download]	[reply] [d/l]
Re: Regex Question by swampyankee (Parson) on Jul 12, 2006 at 21:20 UTC
I'd also modify the regex to be case-insensitive: `/pass\|admin/i;` [download] corrected markup emc e^(π√−1) = −1	[reply] [d/l]
Re: Regex Question by Anonymous Monk on Jul 12, 2006 at 18:05 UTC
Ok, thanks guys. Looks like I have a case of the trying-to-hards. :)	[reply]