冷凝的Perl代碼轉置

Question

我總是發現自己寫這樣的代碼：

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

這將是一個更好的方式來做到這一點？而「更好」的意思是：減少打字的同時保持可理解性。

謝謝。

Answer 1

這會做與第二和第三行相同的事情;

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

這是多麼清晰的是你的電話。

Answer 2

甚至

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

但是，開始把質疑爲什麼你需要擺在首位是$ var。