求助！一个求数组和子例程

li_000828

正在学习子例程：

代码如下：
#!/usr/bin/perl
@a=qw(3 4 5);
sub aa{
  @arr=shift;
  for(@arr)
  {
    $m+=$_;
  }
  return $m;
}
$num=&aa(@a);
print "$num\n";

我想求数组的和，可是结果是数组的第一个值，不知错在哪里，请高人指正一下！

leigh111

@arr=shift;              这个只是取出了数组的第一个元素。

@arr=@_;

li_000828

回复 2# leigh111


    多谢！明白了。