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; 
}