regex - 如何在Perl正则表达式中使用/r标志？

Question

Perl文档指出:

e  Evaluate 'replacement' as an expression
r  Return substitution and leave the original string untouched.

是在替换模式中使用的可用标志。当我将 r标志传递给替换模式时，它将被解释为语法错误。我正在运行Perl 5.8.8。我的Perl版本是否可能不支持它？另外，有人可以提供一个使用示例以及如何调用新创建的替换标记的有效示例吗？

Answer 1

也许您应该阅读5.8.8的文档，然后呢？/r已添加到5.14!

在5.8.8中，您可以执行以下操作:

s/foo/bar/r

和

do { (my $s = $_ ) =~ s/foo/bar/; $s }

s///r的用法示例:

print "abba" =~ s/b/!/rg;         # Prints a!!a

my $new = $old =~ s/this/that/r;  # Leaves $old intact.

my $trimmed = $val =~ s/^\s+//r =~ s/\s+\z//r;
my $trimmed = (($val =~ s/^\s+//r) =~ s/\s+\z//r);  # Same as previous