Question

我在传统代码中使用Perl的AUTOLOAD子例程。每个未映射/未定义的子例程都将由AUTOLOAD处理。是否可以在词法环境中禁用AUTOLOAD处理？

此解决方案不起作用：

# ENTER CODE HERE
{
  # Turn off AUTOLOAD for this block.
  local *AUTOLOAD;
  undef *AUTOLOAD;

  # ENTER CODE HERE
}
# ENTER CODE HERE

Answer 1

AUTOLOAD特定于相关包。所以重新定义包方法：

#!/usr/bin/perl
#

{
    package autoloading;

    sub AUTOLOAD {
        print "YEAH ${AUTOLOAD}!\n";
    }

    sub new {
        return bless {}, $_[0];
    }
}

$obj = new autoloading();

$obj->foo();

*{autoloading::AUTOLOAD} = sub {};

$obj->bar();

产生输出：

YEAH autoloading::foo!

（$obj->bar()来电没有线路）

如何在词汇上关闭Perl的AUTOLOAD子程序？

1 个答案: