Rechercher et remplacer sans enregistrer la variable

Question

Existe-t-il un moyen de le faire en une ligne?

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

Answer 1

Bien sûr, avec un bloc do {}:

use strict; 
use warnings; 

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

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

La raison étant que Perl vous ne pouvez pas faire fetch() =~ s/find/replace/;:
Can't modify non-lvalue subroutine call in substitution (s///) at ...

Perl 5.14 présentera le drapeau /r (ce qui rend l'expression rationnelle retourner la chaîne avec des substitutions plutôt que le nombre de substitutions) et réduira le dessus à:

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

modifié grâce à FM: peut raccourcir le dessus:

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

Et une fois que Perl 5.14 sera sur elle peut être raccourcie à:

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

Answer 2

Si vous demandez si vous devez passer par une variable scalaire pour effectuer le remplacement, la réponse est oui. C'est parce que le résultat de la substitution doit être stocké quelque part. De plus, la substitution ne renvoie pas la variable utilisée, elle renvoie le nombre de substitutions effectuées. Par conséquent, vous ne pouvez pas le mettre en ligne (c'est-à-dire le travail & ($ b = ~ s/find/replace/g)) dans l'appel de fonction.

Answer 3

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

ou de l'utilisation apply à partir de l'un des modules Liste:

use List::Gen qw/apply/; 

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