自动加载 AUTOLOAD($TUTOLOAD变量)

beyes

下面的所说的子例程和子函数属于同一概念。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;


&notdef($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