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;

你的电话是多么清晰.