perl中的函数，传参

函数参数使用特殊数组@_标明。
获取函数中的第一个参数$_[0]，第二个参数为$_[1]
举例如下：

[root@localhost shell]# cat hello.pl 
#!/usr/bin/perl
sub Average{
	#获取所有传入的参数
	$n = scalar(@_);
	$sum=0;

	foreach $item (@_){
		$sum +=$item;
	}
	$average=$sum/$n;
	print "传入的参数为@_\n";
	print "第一个参数$_[0]\n";
	print "平均值为$average\n";
}
#函数调用
Average(1,2,3);
[root@localhost shell]# ./hello.pl 
传入的参数为1 2 3
第一个参数1
平均值为2