如何对这个替换的Perl子程序进行高尔夫？

发布时间：2020-12-15 23:30:08 所属栏目：大数据来源：网络整理

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

我在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;
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!