求一个数组的元素总和，用子过程来实现

#!/usr/bin/perl -w
use strict;
 use 5.010;
sub sum
{
  # my @arr=@_;
  state $sum=0;
  my @arr;
  foreach my $t( @arr)
  {
   
  push @arr,$t;
  $sum+=$t;
  }
  return $sum;
}
my @arr_1=(1,2,3);
my $v=&sum(@arr_1);
print($v);
不知道为什么总是输出0

谁写过的

继续顶