perl 子程序

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

#!/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"

---