曾经在Perl正则表达式的末尾添加‘o’修饰符被认为很有益。但是当前的Perl文档甚至似乎没有列出它，至少在perlre的修饰符部分没有。
现在还有好处吗？
如果仅仅是为了向后兼容，它目前仍然可以接受。
正如J A Faucett和brian d foy所指出的，如果您找到正确的地方（其中之一不是perlre文档），仍然可以找到'o'修饰符的文档。 它在perlop页面中提到。 它还可以在perlreref页面中找到。
正如Alan M在接受的答案中指出的那样，更好的现代技术通常是使用qr//（引用的正则表达式）运算符。
/o已被弃用。确保正则表达式只编译一次的最简单方法是使用正则表达式对象，例如：
my $reg = qr/foo$bar/;
当变量$reg被初始化时，$bar的插值也会同时进行，并且缓存、编译后的正则表达式将在封闭作用域内继续使用。但有时您可能希望重新编译正则表达式，因为您想要它使用变量的新值。以下是Friedl在 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 的效率。
Modifiers
Other Modifiers
…
o - pretend to optimize your code, but actually introduce bugs
这句话也许是一种幽默的说法，意思是它本应执行某种优化操作，但实现有问题。
因此，最好避免使用该选项。
/o标志视为程序员承诺正则表达式不会更改，那么我认为这两种行为都不是错误。程序员对编译器说：我可以向您保证，这个插值$foo的正则表达式在首次编译后不会更改，因此请使用这些知识进行任何优化。编译器可以选择重新编译正则表达式或不重新编译（尽管显然不重新编译通常会更快）。话虽如此，/o的原始文档并没有真正用这些术语来描述它。 - Ed Avis当正则表达式包含变量引用时，这是一种优化方法。它表明尽管正则表达式中有一个变量，但它并不会改变。这样可以进行其他情况下无法实现的优化。
$ perl -v | grep version
This is perl 5, version 20, subversion 1 (v5.20.1) built for x86_64-linux-gnu-thread-multi
$ perl const-in-re-once.pl | sort
0.200 =~ CONST
0.200 =~ m/$VAR/o
0.204 =~ m/literal-wo-vars/
0.252 =~ m,@{[ CONST ]},o
0.260 =~ $VAR
0.276 =~ m/$VAR/
0.336 =~ m,@{[ CONST ]},
我的代码：
#! /usr/bin/env perl
use strict;
use warnings;
use Time::HiRes qw/ tv_interval clock_gettime gettimeofday /;
use BSD::Resource qw/ getrusage RUSAGE_SELF /;
use constant RE =>
qr{
https?://
(?:[^.]+-d-[^.]+\.)?
(?:(?: (?:dev-)? nind[^.]* | mr02 )\.)?
(?:(?:pda|m)\.)?
(?:(?:news|haber)\.)
(?:.+\.)?
yandex\.
.+
}x;
use constant FINAL_RE => qr,^@{[ RE ]}(/|$),;
my $RE = RE;
use constant ITER_COUNT => 1e5;
use constant URL => 'http://news.trofimenkov.nerpa.yandex.ru/yandsearch?cl4url=www.forbes.ru%2Fnews%2F276745-visa-otklyuchila-rossiiskie-banki-v-krymu&lr=213&lang=ru';
timeit(
'=~ m/literal-wo-vars/',
ITER_COUNT,
sub {
for (my $i = 0; $i < ITER_COUNT; ++$i) {
URL =~ m{
^https?://
(?:[^.]+-d-[^.]+\.)?
(?:(?: (?:dev-)? nind[^.]* | mr02 )\.)?
(?:(?:pda|m)\.)?
(?:(?:news|haber)\.)
(?:.+\.)?
yandex\.
.+
(/|$)
}x
}
}
);
timeit(
'=~ m/$VAR/',
ITER_COUNT,
sub {
for (my $i = 0; $i < ITER_COUNT; ++$i) {
URL =~ m,^$RE(/|$),
}
}
);
timeit(
'=~ $VAR',
ITER_COUNT,
sub {
my $r = qr,^$RE(/|$),o;
for (my $i = 0; $i < ITER_COUNT; ++$i) {
URL =~ $r
}
}
);
timeit(
'=~ m/$VAR/o',
ITER_COUNT,
sub {
for (my $i = 0; $i < ITER_COUNT; ++$i) {
URL =~ m,^$RE(/|$),o
}
}
);
timeit(
'=~ m,@{[ CONST ]},',
ITER_COUNT,
sub {
for (my $i = 0; $i < ITER_COUNT; ++$i) {
URL =~ m,^@{[ RE ]}(/|$),
}
}
);
timeit(
'=~ m,@{[ CONST ]},o',
ITER_COUNT,
sub {
for (my $i = 0; $i < ITER_COUNT; ++$i) {
URL =~ m,^@{[ RE ]}(/|$),o
}
}
);
timeit(
'=~ CONST',
ITER_COUNT,
sub {
my $r = qr,^$RE(/|$),o;
for (my $i = 0; $i < ITER_COUNT; ++$i) {
URL =~ FINAL_RE
}
}
);
sub timeit {
my ($name, $iters, $code) = @_;
#my $t0 = [gettimeofday];
my $t0 = (getrusage RUSAGE_SELF)[0];
$code->();
#my $el = tv_interval($t0);
my $el = (getrusage RUSAGE_SELF)[0] - $t0;
printf "%.3f\t%-17s\t%.9f\n", $el, $name, $el / $iters
}
是和否
我使用以下脚本进行了简单比较：
perl -MBenchmark=cmpthese -E 'my @n = 1..10000; cmpthese(10000, {string => sub{"a1b" =~ /a\d+c/ for @n}, o_flag => sub{"a1b" =~ /a\d+c/o for @n}, qr => sub{my $qr = qr/a\d+c/; "a1b" =~ /$qr/ for @n } })'
Rate qr string o_flag
qr 760/s -- -72% -73%
string 2703/s 256% -- -5%
o_flag 2833/s 273% 5% --
有一件令人困惑的事情是，在至少5.8.8版本中，它不允许使用ONCE块。
perl -le 'for (1..3){
print;
m/${\(print( "between 1 and 2 only"), 3)}/o and print "matched"
}'