Perl s/это/что/г ==> "Bareword нашел, где оператор ожидается"

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 является новым в perl 5.14. Однако вы можете сделать это в предыдущих версиях perl:

Answer 2

Там нет лучшего решения, нет (хотя я обычно пишу в одной строке, так как s///, по существу, выступающий в качестве части процесса инициализации:

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

). Кстати, причина вашего сообщения об ошибке почти наверняка заключается в том, что вы используете версию Perl, которая не поддерживает флаг /r. Этот флаг был добавлен совсем недавно, в Perl 5.14. Возможно, вам будет легче разработать, используя документацию для вашей собственной версии; например, http://perldoc.perl.org/5.12.4/perlop.html, если вы на Perl 5.12.4.