以前认为在Perl正则表达式的末尾包含“o”修饰符是有益的。目前
Perl documentation甚至不列出它，肯定不是在
modifiers section of perlre。
它现在提供任何好处吗？
它仍然被接受，由于向后兼容性的原因没有别的。
正如J A Faucett和brian d foy所指出的，如果你找到正确的地方(其中一个不是perlre文档)，’o’修饰符仍然记录下来。它在perlop页中提到。它也在perlreref页中找到。
正如Alan M在接受的答案中所指出的，更好的现代技术通常是使用qr //(引用的regex)运算符。
解决方法
我相信它仍然支持，但它已经过时了。如果你希望正则表达式只被编译一次，你最好使用一个正则表达式对象，像这样：
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的效率，而不牺牲灵活性。