Perl |自动加载功能
在 Perl 中，自动加载是一个定义在包中的例程或机制。使用起来很简单。每当包中有一个未定义的例程被调用时，就应用它。 如果没有自动加载，未定义的例程将在程序运行时产生错误。为了定位一个或多个包，使用未定义子程序的参数调用自动加载子程序。
语法:要使用自动加载，只需将该语法放入您的 Perl 程序中:-
use vars '$AUTOLOAD';
参数: 在$Autoload 中，原始子程序的名称出现在调用未定义函数的包的全局变量中。 在较新版本的 Perl 中，语法是
our $AUTOLOAD;
示例: 下面看一个 Perl 调用未定义函数的示例
#!/usr/bin/perl
use strict;
use warnings;
print "Geeks For Geeks\n";
report_protein_function("one", "two");
print "A computer portal for every geek\n";
输出:
如您所见，程序中出现了一个错误。现在我们将在程序中使用自动加载方法
#!/usr/bin/perl
use strict;
use warnings;
use vars '$AUTOLOAD';
print "Geeks For Geeks\n";
report_protein_function("one", "two");
print "A computer portal for every geek\n";
# AUTOLOAD() Function
sub AUTOLOAD
{
print "AUTOLOAD is set to $AUTOLOAD\n";
print "with arguments ", "@_\n";
}
输出:
自动加载中的重新匹配方法()
AUTOLOAD() 功能帮助我们提取未定义包的名称。这使得从被引用的标量中获取被代理对象的数据地址成为可能。
代理类写入日志，然后重新调度到目标对象。
通过 NEXT 可以实现一个 AUTOLOAD 方法，该方法只处理**get_**和**set_**形式的方法调用，对任何其他方法请求都是不可见的。
实现如下所示:
sub AUTOLOAD
{
$AUTOLOAD =~ s/.*:://;
if ($AUTOLOAD =~ /^get_\w+$/)
{
# Handle getting...
}
elsif ($AUTOLOAD =~ /^set_\w+$/)
{
# Handle setting...
}
else
{
# Decline to handle,
# passing the request on to someone else...
shift->${\"NEXT::$AUTOLOAD"}(@_);
}
}
在自动加载中生成代码()
重新分配方法很容易，但是效率很低。在 AUTOLOAD() 中，代理上的每个方法调用都以正常调度失败告终。
这使得之前的自动加载方法对闭包绑定了未定义子程序的名称。这使得代码可以调用并直接到达结果。
这个方法比较容易清理，处理 AUTOLOAD() 中的行为。
自动加载的缺点()
这里列出了自动加载的一些缺点()
- 虽然这个方法很有用，但是很难正确使用它，因为它没有给出关于对象和类的能力的正确信息。
- 它会延迟子程序的加载。
- 自动加载执行速度非常快
