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,-3);  
print "$bigger/n";# 5