有没有办法在 Perl 中预编译正则表达式？

Question

有没有办法在 Perl 中预编译正则表达式？我有一个我在一个程序中多次使用它并且在使用之间不会改变。

Answer 1

使用 qr// 运算符（记录在 Regexp Quote-Like Operators 下的 perlop - Perl operators and precedence 中）。

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

Answer 2

对于文字（静态）正则表达式，没有什么可做的——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 可能是过早的微优化。这也是一个潜在的陷阱。如果变量 has 使用/o 改变了会导致 Perl 使用旧的正则表达式。这可能会导致难以诊断的错误。

Answer 3

为了澄清，您可以使用预编译的正则表达式：

my $re = qr/foo|bar/;  # Precompile phase
if ( $string =~ $re ) ...   # For direct use
if ( $string =~ /$re/ ) .... # The same as above, but a bit complicated
if ( $string =~ m/something $re other/x ) ...  # For use precompiled as a part of a bigger regex
if ( $string =~ s/$re/replacement/ ) ...  # For direct use as replace
if ( $string =~ s/some $re other/replacement/x ) ... # For use precompiled as a part of bigger regex, and as replace all at once

在perlre 中有记录，但没有直接的例子。