我在Perl中有以下子程序用“abc”替换字符串中的“xyz”：
sub mySubst {
my ($str) = @_;
$str =~ s|abc|xyz|ig;
return $str;
}
它有效,但对于Perl来说似乎太冗长了.我怎样才能把它收紧？
解决方法
这是我如何更惯用地渲染该子例程：
sub mySubst {
(my $str = shift) =~ s|abc|xyz|ig;
return $str;
}