Re: regex search fails

Change the line in the loop to

    print if /\Q$pattern\E/;
[download]

This is equivalent to $pattern= quotemeata($pattern); before the loop. The '$' in your pattern is interpreted as special char in your regex, thats why it isn't working

Comment on Re: regex search fails Select or Download Code

Replies are listed 'Best First'.
Re^2: regex search fails by ikegami (Patriarch) on Mar 12, 2009 at 15:09 UTC
If the "solution" is `print if /\Q$pattern\E/;` [download] then `$pattern` doesn't contains a regexp pattern as its name implies. The variable should be renamed `my $search_str = $1; ... print if /\Q$search_str/;` [download] or `quotemeta` should be called earlier. `my $pattern = quotemeta($1); # aka "\Q$1" ... print if /$pattern/;` [download]	[reply] [d/l] [select]