使用变量作为RegEx模式

Question

我想使用变量作为RegEx模式来匹配文件名:

my $file = "test~";
my $regex1 = '^.+\Q~\E$';
my $regex2 = '^.+\\Q~\\E$';
print int($file =~ m/$regex1/)."\n";
print int($file =~ m/$regex2/)."\n";
print int($file =~ m/^.+\Q~\E$/)."\n";

结果(或在ideone.com上):

0
0
1

任何人都可以向我解释如何使用变量作为RegEx模式？

Answer 1

正如文件所说:

    $re = qr/$pattern/;
    $string =~ /foo${re}bar/; # can be interpolated in other patterns
    $string =~ $re; # or used standalone
    $string =~ /$re/; # or this way

因此,使用qr类似报价的运算符.

Answer 2

您不能\Q在单引号/非内插字符串中使用.它必须由词法分析器来看待.

无论如何,代字号不是元字符.

添加use regex "debug",您将看到实际发生的情况.