perl学习笔记五----子程序

点击打开链接

一,定义以及调用子程序

[1] 子程序可以在程序的任意位置定义。

[2] 任何情况下你都不需要对子程序进行事先声明。

[3] 子程序的定义是全局的；除非你使用一些强有力的技巧，否则不存在所谓的私有子程序。

[4] 假如定义了两个重名的子程序，那么后面的那个子程序会覆盖掉前面的。

&func;# Hello, number 1!
&func;# Hello, number 2!
sub func {
$n+=1;# 全局变量$n
print "Hello, number $n!/n";
}
&func;# Hello, number 3!

二:子程序返回值:

在perl中所有的子程序都有一个返回值,即子程序最后一个表达式的值即是子程序的返回值.

三,子程序的参数

Perl子程序可以有参数（argument）。要传递参数列表（argument list）到子程序里，只要在子程序调用的后面加上被括号圈引的列表表达式（list
expression）就行了。Perl会自动将参数列表化名为特殊的数组变量@_，该变量在子程序执行期间有效。子程序可以访问这个数组，以判断参数的个数以及参数的值。这表示，子程序的第一个参数存储于$_[0]，第二个参数存储于$_[1]，依次类推。但是，请特别注意，这些变量和$_变量毫无关联。

sub max_variable_argument_list{
#$first=$_[0];
#shift(@_);# 删除第一个元素
# 上面两行代码简写为一行
$first=shift(@_);
foreach (@_) {# 遍历比较剩余元素
if ($first < $_) { $first=$_ }
}
$first# 记得写返回值
}
$bigger=max_variable_argument_list(3,5,7);
print "$bigger/n";# 7
$bigger=max_variable_argument_list(12,4,2);
print "$bigger/n";# 12
$bigger=max_variable_argument_list(-2,5,-3);
print "$bigger/n";# 5