regex - perl 不区分大小写的开关作为变量？

Question

在 perl 中，我希望能够做到这一点:

$switches = "is";
$regexp = "\\d";
if ($string =~ m/$regexp/$switches) {
 do something...
}

换句话说，如何在运行时使“$switches”成为可选的？
(用户可以从多种搜索选项中进行选择)

Answer 1

if ($string =~ /(?$flags:$pattern)/) {
   ...
}

注意:如果 $pattern，这将不起作用是一个编译模式(即由 qr// 生成)而不是字符串，因为它是传递给 qr// 的标志影响用 qr// 编译的模式.您必须将标志传递给 qr//而不是 m// .