regex – Perl正则表达式的’o’修饰符是否仍然提供任何好处？

我相信它仍然支持，但它已经过时了。如果你希望正则表达式只被编译一次，你最好使用一个正则表达式对象，像这样： @H_335_14@my $reg = qr/foo$bar/;

$ bar的插值在初始化变量时完成，因此您将始终在封闭范围内使用缓存的编译后的正则表达式。但有时你想要regex被重新编译，因为你想要使用变量的新值。这里是弗里德尔在The Book使用的例子：

sub checkLogfileForToday()
{
  my $today = (qw<Sun Mon Tue Wed Thu Fri Sat>)[(localtimE)[6]];

  my $today_regex = qr/^$today:/i; # compiles once per function call

  while (<LOGFILE>) {
    if ($_ =~ $today_regeX) {
      ...
    }
  }
}

在函数的范围内，$ today_regex的值保持不变。但是下次调用函数时，正则表达式将使用$ today的新值重新编译。如果他刚刚使用

if ($_ =~ m/^$today:/io)

…正则表达式永远不会更新。因此，使用对象形式，您具有/ o的效率，而不牺牲灵活性。