Condensation code Perl Transposer

Question

Je trouve toujours moi-même écrire du code comme ceci:

my $var = $result[0]; 
my $var_changed = $var; 
$var_changed =~ s/somepattern/somechange/g; 

Quelle serait une meilleure façon de le faire? Et par «mieux», je veux dire: moins de frappe tout en restant compréhensible.

Merci.

Answer 1

Ceci ferait la même chose que les deuxième et troisième lignes;

(my $var_changed = $var) =~ s/somepattern/somechange/g; 

Comme c'est lisible, c'est votre appel.

Answer 2

Ou encore

(my $var_changed = my $var = $result[0]) =~ s/somepattern/somechange/g; 

Mais cela commence à remettre en question la raison pour laquelle vous avez besoin $ var en premier lieu.