Re^2: Regex Question

Close.
if (grep { $pass =~ /$_/ } map quotemeta, @badwords) {
or
if (grep { index($pass, $_) >= 0 } @badwords) {
or
my $re = join '|', map quotemeta, @badwords;
if ($pass =~ /$re/) {

Comment on Re^2: Regex Question Select or Download Code

Replies are listed 'Best First'.
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
@badwords can't contain both regexps and words. For example, your solution will fail with words (e.g. `fck` won't work), mine will fail with regexps (e.g. `f[u]ck` won't work). I assumed you wanted words since your called your array @badwords. Both solutions are fine (although the name @badwords is a bit misleading if it contains regexps) depending on what is needed.	[reply] [d/l] [select]