|
下面的所说的子例程和子函数属于同一概念。AUTOLOAD 函数可以检查子函数是否被定义过,如果调用一个没有被定义过的子函数时会自动去调用 AUTOLOAD 子例程,同时还会把未定义的子例程名赋值给特殊内置变量 $AUTOLOAD 。
比如下面代码:
[code=perl]#!/usr/bin/perl
sub AUTOLOAD {
my (@arguments) = @_;
$args = join(', ', @arguments);
print "$AUTOLOAD was never defined.\n";
print "The arguments passed were $args.\n";
}
$arg1 = "perl";
$arg2 = "world";
$arg3 = 1000;
¬def($arg1, $arg2, $arg3);[/mw_shl_code]
运行输出:$ ./autoload.pl
main::notdef was never defined.
The arguments passed were perl, world, 1000. 由输出可见,由于在主函数 main 中调用 notdef 子函数并不存在,所以程序自动去调用了 AUTOLOAD 子函数(函数体可自定义),并且将未定义的子函数 notdef 信息赋值到 $AUTOLOAD 变量中。
测试代码2:
[code=perl]#!/usr/bin/perl
sub AUTOLOAD {
my (@arguments) = @_;
my ($package, $command) = split("::", $AUTOLOAD, 2); #分隔之前是 main::date
return `$command @arguments`; #反引号表示使用 shell 来执行命令
}
$day = date("+%D");
print "Today is $day.\n";
print cal(3,2011);[/mw_shl_code]
运行输出:$ ./auto.pl
Today is 10/20/11
.
March 2011
Su Mo Tu We Th Fr Sa
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31 |
|