有沒有一種在Perl中預編譯正則表達式的方法？

Question

有沒有一種方法可以在Perl中預編譯正則表達式？我有一個我在程序中多次使用並且在使用之間不會改變的地方。

Answer 1

對於文字（靜態）正則表達式，沒有什麼可做 - perl只會編譯它們一次。

if ($var =~ /foo|bar/) { 
    # ... 
} 

對於存儲在變量中的正則表達式，您有幾個選項。您可以使用qr//運營商建設一個正則表達式對象：

my $re = qr/foo|bar/; 

if ($var =~ $re) { 
    # ... 
} 

，如果你想使用正則表達式在多個地方或把它傳遞給子程序這是非常方便。

如果正則表達式是一個字符串，你可以使用/o選項承諾的perl，它永遠不會改變：

my $pattern = 'foo|bar'; 

if ($var =~ /$pattern/o) { 
    # ... 
} 

它通常是更好地這樣做，雖然。 Perl很聰明，知道變量沒有改變，正則表達式也不需要重新編譯。指定/o可能是過早的微觀優化。這也是一個潛在的陷阱。如果變量已將更改爲使用/o，則會導致perl使用舊的正則表達式。這可能會導致難以診斷錯誤。

Answer 2

簡單：檢查qr //運算符（記錄在perlop下的Regexp Quote-Like Operators）。

my $regex = qr/foo\d/; 
$string =~ $regex;