Perl中的qr/STRING /运算符如何决定是否编译STRING？

Question

的docs为qr/STRING/说：

这个操作符引号（并可能编译）其作为 正则表达式STRING。

让我担心的是圆括号中的部分。我想不出任何我不希望它从STRING中编译正则表达式的情况。这个括号内的语句是否仅仅是为了涵盖某些将来不需要编译的案例，或者今天（或者在早期版本的Perl中）不会编译STRING的案例？

Answer 1

的“可能编写的”文件的一部分可能是指情况如下所示的一个，这里的参数qr//是一个已编译的正则表达式：

use re 'debug'; 

$re1 = qr/foo/; 
$re2 = qr/$re1/; 

运行该程序只显示正在编译的一个正则表达式。

无论该段落的意图如何，对内部细节的狡猾暗示都没有明确说明文档的作用。我认为一个文档补丁将是有益的。

Answer 2

如果正则表达式包含任何内插字符串，它总是编译（也许不是如果你使用/ o开关 - 我承认/ o一直困惑着我）。如果正则表达式只包含文本文本，我相信亚当的答案是正确的。

IIRC它的意思来处理这样的场景：

while (my $foo = $something->next) { 
    my $regex1 = qr/ab(cd+)ef?/; # only compiled once 
    my $regex2 = qr/ab${foo}*ef/; # compiled every time through the loop 
    # do stuff with $regex1 and $regex2 
} 

Answer 3

编辑：这个答案是错的（或至少是误导），但在这值得保留意见的一些有趣的讨论。 John Siracusa's answer似乎是在正确的轨道上。

---

为qr//文档状态

STRING被内插相同的方式，以m/PATTERN PATTERN /。

这大概包括不重新编译模式没有改变的正则表达式的行为，或者在不包括插入变量的情况下不能改变的行为。例如，你不需要重新编译在每次循环迭代这种模式：

foreach my $char ('a' .. 'z') { 
    my $vowel = qr/[aeiou]/; 
    say "$char is a vowel" if $char =~ $vowel; 
}