一,定义以及调用子程序
[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