凝縮Perlのトランスコード

Question

私はいつも自分自身がこのようなコードを書く見つける：

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

これを行うには良い方法だろうか？そして「より良い」とは、わかりやすい形での入力が少ないことを意味します。

ありがとうございました。

Answer 1

これは、2行目と3行目と同じことを行います。

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

あなたの呼び出しはわかりやすいです。

Answer 2

あるいは

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

しかし、それはあなたが最初の場所で$ VARを必要とする理由疑問に持ち込むために開始します。