Brennwertkessel Perl Transponieren Code

Question

ich immer finde mich wie dieses Schreiben von Code:

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

Was wäre ein besserer Weg, dies zu tun? Und mit "besser" meine ich: weniger tippen, dabei aber verständlich bleiben.

Danke.

Answer 1

Dies würde das gleiche wie die zweite und dritte Zeile tun;

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

Wie gut lesbar ist, ist Ihr Anruf.

Answer 2

Oder sogar

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

Aber das beginnt in Frage zu stellen, warum Sie $ var in erster Linie brauchen.