perl - 如何加入带有逗号和 'and' 的列表？

Question

给定一个列表 (a, b, c)创建字符串的最佳方法是什么，其中逗号分隔所有元素，除了最后一个用“和”分隔:a, b and c .理想情况下，这也适用于一元素和二元素列表。

Answer 1

在这种情况下，将所有内容都塞在一个语句中会使解决方案更难阅读。

sub nice_join {
    my $last = pop;
    return $last if !@_;
    return join(', ', @_) . " and $last";
}

如果你想要 undef 以外的东西没有参数，

sub nice_join {
    return "none" if !@_;
    my $last = pop;
    return $last if !@_;
    return join(', ', @_) . " and $last";
}