Regex false match

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

I'm trying to figure out why this regex matches... Do I need to escape something, or pass a parameter to the regex? Thanks.

#!/usr/bin/perl

use strict;

my $line = "mdrecoveryd";

my $process = "/bin/bash -c  -x /bin/ttrun-parts  && /bin/ttrun-parts 
+/etc/cron.hourly || run-parts /etc/cron.hourly";

if ($line =~ m/$process/i) {
    print "YES\n";
}
else {
    print "NO\n";
}
[download]

Comment on Regex false match Download Code

Replies are listed 'Best First'.
Re: Regex false match by GrandFather (Saint) on Dec 19, 2006 at 02:01 UTC
because `\|\|` matches. You need to quote the match string if you are trying to match it verbatim: `if ($line =~ m\|\Q$process\Q\|i) {` [download] DWIM is Perl's answer to Gödel	[reply] [d/l] [select]
Re^2: Regex false match by mhearse (Chaplain) on Dec 19, 2006 at 02:10 UTC
Many thanks.	[reply]
Re^3: Regex false match by ikegami (Patriarch) on Dec 19, 2006 at 05:43 UTC
Grandfather meant `\Q`..`\E`, not `\Q`..`\Q`. `if ($line =~ m/\Q$process\E/i) {` [download] That checks if $process is in $line. You could also use `index`, which might even be faster. `if (index(lc($line), lc($process)) >= 0)) {` [download] If you wanted to check if the two vars are the same, then that should be `if ($line =~ m/^\Q$process\E\z/i) {` [download] or `if (lc($line) eq lc($process)) {` [download]	[reply] [d/l] [select]