子程序参数

Perl会自动将参数列表化名为特殊的数组变量 @_ ,该变量在子程序执行期间有效.子程序可以访问这个数组,以判断参数的个数以及参数的值.

@_ 是子程序的私有变量,假如已经有了全局变量@_,则该变量在子程序调用前会先被存起来,并在子程序返回时恢复原本的值.

即使子程序递归调用自己,每次调用时仍然会取得一个新的@_.

在一种特殊情况下,子程序调用不会生成私有@_,而是会从上下文继承.即以前导符 & 调用子程序,并且没有参数列表,如 &fun.

#!/usr/bin/perl
use strict;
@_=qw(a b c);
sub fun {
    print"in the function:@_\n";
}
fun(1,2,3);
fun;
&fun(5,6,7);
&fun;
print"out of the function:@_\n";

从结果可以看到,第10行中的子程序调用继承了全局的@_ ,因此,为了保证子程序调用时参数列表的正确,推荐的调用方式是 &fun().

在递归环境中,子程序按第10行方式调用时,继承的@_是来自于上级堆栈.