perl s/这个/那个/r ==> "Bareword found where operator expected“

Question

Perl docs建议这样做：

$foo = $bar =~ s/this/that/r;

然而，我得到了这个错误：

Bareword found where operator expected near
    "s/this/that/r" (#1)

这是特定于r修饰符的，没有它，代码就可以工作。但是，我不想修改$bar。当然，我可以替换

my $foo = $bar =~ s/this/that/r;

使用

my $foo = $bar;
$foo =~ s/this/that/;

有没有更好的解决方案？

Answer 1

正如ruakh所写的，/r是Perl5.14中的新特性。但是，您可以在以前的perl版本中做到这一点：

(my $foo = $bar) =~ s/this/that/;

Answer 2

没有更好的解决方案了(尽管我通常把它写在一行，因为s///本质上是初始化过程的一部分：

my $foo = $bar; $foo =~ s/this/that/;

顺便说一句，您的错误消息的原因几乎可以肯定是您正在运行的Perl版本不支持/r标志。该标志是最近在Perl5.14中添加的。您可能会发现，使用您自己版本的文档进行开发会更容易；例如，如果您使用的是Perl5.12.4，则使用http://perldoc.perl.org/5.12.4/perlop.html。

Answer 3

为了完整性。如果您使用的是较旧版本的perl。并且确实希望使用s///命令，而不是求助于使用临时变量。这里有一种方法：

perl -E 'say map { s/_iter\d+\s*$//; $_ } $ENV{PWD}'

基本上使用map来转换字符串的副本并返回最终输出。而不是s///所做的-返回替换的计数。