Perl中的默认自动加载
Perl提供了其他任何编程语言都无法提供的功能：默认子例程。这意味着，如果定义一个名为AUTOLOAD()的函数 ，则对未定义子例程的任何调用都会AUTOLOAD()自动调用该函数。缺少的子例程的名称可以在该子例程中以$AUTOLOAD的形式访问。
默认的自动加载功能对于错误处理非常有用。这是实现AUTOLOAD的示例，您可以以自己的方式实现此功能。
sub AUTOLOAD {
my $self = shift;
my $type = ref ($self) || croak "$self is not an object";
my $field = $AUTOLOAD;
$field =~ s/.*://;
unless (exists $self->{$field}) {
croak "$field does not exist in object/class $type";
}
if (@_) {
return $self->($name) = shift;
} else {
return $self->($name);
}
}热门推荐
1 如何训练狗狗不叫
2 训练狗狗不叫
3 训练狗狗随行
4 怎么训练狗狗不叫
7 训练比熊狗狗教程
10 上海狗狗训练
11 怎么训练狗狗上厕所
12 训练狗狗趴下
13 狗狗服从训练
14 训练狗狗拒食
15 训练狗狗笑
16 训练狗狗大便
17 训练狗狗立
18 训练狗狗捡东西