转自：perl 函数,参数,@_,$_,$_[0],shift 的用法示例
1. Perl函数
??通过 & 调用。
2. Perl参数
??Perl天然支持可变数目个参数。
??在函数内部，所有参数按顺序放在数组 @_ 中。
??在函数内部，$_[0] 表示函数的第一个参数。其余类推。
3. shift
??shift 后跟一个数组，表示将数组的第一个值返回。数组也被改变，其第一个元素被弹出。
演示代码一(求最大值):
#!/usr/bin/perl -w
use?strict;
# 调用函数max，取得一组数值的最大值,并输出。
my?$maxValue?=?&max(11,22,33);
print?"maxValue=$maxValuen";
sub?max?{
????# 采用遍历算法。先将参数中的第一个值赋给$currentMaxValue。
????# @_ 是默认的包含本函数所有参数[如(11,33)]的数组。
????# shift @_ 有两个结果: 1. 将数组 @_ 中的第一个值做为返回值(赋给了$currentMaxValue). 2. 将@_数组第一个值弹出[此后@_的值变为(22,33)].
????my?$currentMaxValue?=?shift?@_;
????# 函数中使用shift时，@_可以省略。上面代码也可以写成这样。
??? #?my $currentMaxValue = shift;
????# 遍历整个@_数组。
????foreach?(?@_?)?{
????????# $_ 表示数组@_中当前被遍历到的元素.
????????if?(?$_?>?$currentMaxValue?)?{
????????????# 如果发现当前数组元素比$currentMaxValue大，那就将$currentMaxValue重新赋值为当前元素。
????????????$currentMaxValue?=?$_;
????????}
????}
????# 函数返回值为标量$currentMaxValue.
????return?$currentMaxValue;
}
?
演示代码二(求和):
#!/usr/bin/perl -w
use?strict;
# 求一组数的和并打印。
my?$s1?=?&sum1(11,33);
my?$s2?=?&sum2(22,33,44);
my?$s3?=?&sum3(11,44,55);
print?"s1=$s1,s2=$s2,s3=$s3n";
# 办法1
sub?sum1?{
????# 将参数数组的前三个元素值相应地赋给($first,$second,$third)
????(my?$first,?my?$second,?my?$third)?=?@_;
????
????# 返回其和值。缺点: 如果是求四个参数的和，依然只能给出前三个的和。
????return?$first?+?$second?+?$third;
}
# 办法2
sub?sum2?{
????# $_[0] 表示参数数组@_的第一个元素。其余类推。
????my?$first?=?$_[0];
????my?$second?=?$_[1];
????my?$third?=?$_[2];
????
????# 返回其和值。缺点: 同sum1. 只是通过这里学习 $_[0] 这种用法。
????return?$first?+?$second?+?$third;
}
# 办法3,参数可以任意多。都能求其和。 sub?sum3?{ ????my?$s?=?shift?@_; ???? ????foreach?(?@_?)?{ ????????$s?=?$s?+?$_; ????} ???? ????# 同前面函数max。 ????return?$s; }
