Question

求一个perl程序，功能是实现给定列表中数字相加的综合，最好能写一个函数。

Answer 1

sub add {
my @scalar = @_;
my $total=0;
for (my $i=0; $i<scalar(@scalar);$i++){
$total += int($scalar[$i]);
}
return $total；
}
这个都写不了还搞啥Perl?很奇怪哦

Answer 2

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

Answer 3

sub add{
my $s=0;
map{ $s+=$_;}@_;
return $s;
}