Найти и заменить без сохранения переменной

Question

Есть ли способ сделать это в одну строку?

my $b = &fetch();
$b =~ s/find/replace/g;
&job($b)

Answer 1

Конечно, с блоком do {}:

use strict;
use warnings;

sub fetch { 'please find me' }
sub job   { print @_, "\n"   }

job( do { $_ = fetch(); s/find/replace/g; $_ } );

Причина в том, что в Perl вы не можете сделать fetch() =~ s/find/replace/;:
Can't modify non-lvalue subroutine call in substitution (s///) at ...

В Perl 5.14 будет введен флаг /r (который заставит регулярное выражение возвращать строку с подстановками, а не количество подстановок) и уменьшит вышеприведенное до:

job( do { $_ = fetch(); s/find/replace/gr; } );

отредактировано благодаря FM: можно сократить вышеуказанное до:

job( map { s/find/replace/g; $_ } fetch() );

И как только Perl 5.14 выйдет, его можно сократить до:

job( map { s/find/replace/gr } fetch() );

Answer 2

Если вы спрашиваете, нужно ли вам проходить через скалярную переменную для замены, ответ - да. Это потому, что результат подстановки должен где-то храниться. Кроме того, подстановка не возвращает используемую переменную, она возвращает количество выполненных подстановок. Поэтому вы не можете встроить его (то есть, & job ($ b = ~ s / find / replace / g)) в вызов функции.

Answer 3

for (fetch() . '') {   # append with '' to make sure it is a non-constant value
    s/find/replace/g;
    job($_)
}

или используйте apply из одного из модулей списка:

use List::Gen qw/apply/;

job( apply {s/find/replace/g} fetch() );