perl - 默认情况下 Perl 中的任何 sumfunc

Question

代码

sub sumfunc {
    my (@x) = @_; my $sum = 0;
    for(my $i=0; $i<=$#x; $i++) {
        $sum += $x[$i];
    }
    return $sum;
}

使用

my $Sx  = sumfunc(@x);

如何才能更好地完成 sumfunc？Perl 5.18.2 中此事件有默认函数吗？总结@x 中的所有内容。我觉得一个单独的功能是无关紧要的。

Answer 1

快速搜索显示，对列表求和的函数是 sum，并且可以从标准模块 List::Util 中获得。 .

文档的 synopsis表明有必要声明所需的函数。例如，

use strict;
use warnings;

use List::Util qw(sum);

my @a = qw(1 3 5 7 9);
my $b = sum @a;
print "b=$b.\n";

相同的文档树允许搜索特定于您的 Perl 5.18.2 的内容；该功能(仍然)在那里可用。