perl 子程序

@_其实和$_有点岩稿相似，你可以理解为由于函数接受的参数个数一定，因此接受的参数应液枣空该用数组来存。而$_只能存储一个变量，不满足函数参数存储条件。所以默认为@_来存储传递闹瞎进函数的参数

sub sum{

my $test = shift#根据上下文这里是去一个标量， ($a) = @_试图从数组里面取一个标量

my $total=0

foreach(@$test){

$total=$total+$_

}

return $total

}

#!/usr/bin/perl -w

use strict

sub total{

 中租my $sum = 0#这里你猛或打成了$num

 foreach (@_){

  $sum += $_

   }

$sum

}

my @fred = (1 .. 1000)

my $fred_total = &卖知兆total(@fred) #这里也要加my

print $fred_total."\n"

---