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

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

解决方法

对于文字(静态)正则表达式没有什么可做 – 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使用旧的正则表达式。这可能导致很难诊断错误。