Perlで正規表現をプリコンパイルする方法はありますか？

Question

Perlで正規表現をプリコンパイルする方法はありますか？私はプログラムで何度も使用するものを持っていますが、それは用途間では変わりません。

Answer 1

リテラル（静的）正規表現では、何もしません - perlは一度だけコンパイルします。

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

変数に格納された正規表現には、いくつかのオプションがあります。あなたは、正規表現オブジェクトを構築するためにqr//演算子を使用することができます。

my $re = qr/foo|bar/; 

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

あなたが複数の場所で正規表現を使用するか、またはサブルーチンに渡したい場合、これは便利です。

正規表現パターンが文字列である場合は、それは決して変わらないのperl約束する/oオプションを使用することができます。しかし、

my $pattern = 'foo|bar'; 

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

それがないために、通常は良いでしょうが。 Perlは、変数が変更されておらず、正規表現を再コンパイルする必要がないことを知るのに十分にスマートです。おそらく/oを指定するのは時期尚早のマイクロ最適化です。潜在的な落とし穴でもあります。変数がに変更された場合、/oを使用すると、perlは古い正規表現を使用します。それはバグを診断するのが難しくなる可能性があります。

Answer 2

シンプル：qr //演算子（Regexp Quote-Like Operatorsの下のperlopに記載されています）を確認してください。

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