Condensing Perl Transpose代码

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的质疑。