如何确定运行时是否存在Perl函数？

Question

我正在研究Perl中的测试框架.作为测试的一部分,我可能需要为任何给定的测试添加前置条件或后置条件检查,但不一定适用于所有测试.到目前为止,我得到的是:

eval "&verify_precondition_TEST$n";
print $@ if $@;

不幸的是,如果该函数不存在,则输出"未定义的子例程&verify_precondition_TEST1调用...".

在尝试调用之前,如何提前确定函数是否存在？

Answer 1

Package::Name->can('function')

要么

*Package::Name::function{CODE}

# or no strict; *{ "Package::Name::$function" }{CODE}

或只是生活在例外.如果在eval中调用该函数并设置了$ @,则无法调用该函数.

最后,听起来你可能想要Test :: Class而不是自己编写.

编辑:( defined &function_name或no strict; defined &{ $function_name }变体),如其他答案中所述,看起来是最好的方式.UNIVERSAL :: can最适合你将作为一种方法(风格)调用的东西,当Perl为你提供你想要的语法时,为什么还要乱用符号表.

学习++ :)

Answer 2

sub function_exists {    
    no strict 'refs';
    my $funcname = shift;
    return \&{$funcname} if defined &{$funcname};
    return;
}

if (my $subref = function_exists("verify_precondition_TEST$n") {
    ...
}

Answer 3

定义:

if (eval "defined(&verify_precondition_TEST$n)") {
    eval "&verify_precondition_TEST$n";
    print $@ if $@;
}
else {
    print "verify_precondition_TEST$n does not exist\n";
}

编辑:嗯,我只想到eval,因为它是在问题中,但带有Leon Timmermans带来的象征性参考,你不能这样做吗？

if (defined(&{"verify_precondition_TEST$n"}) {
    &{"verify_precondition_TEST$n"};
    print $@ if $@;
}
else {
    print "verify_precondition_TEST$n does not exist\n";
}

即使有严格的？

Answer 4

我使用过Leon的方法,但是当我有多个包时,它就失败了.我不确定为什么; 我认为它与名称空间之间的范围传播有关.这是我提出的解决方案.

my %symbols = ();
my $package =__PACKAGE__; #bring it in at run-time
{
    no strict;
    %symbols = %{$package . "::"}; #See Symbol Tables on perlmod
}
print "$funcname not defined\n" if (! defined($symbols{$funcname});

参考文献:
__PACKAGE__ perlmod的页面上的参考.

关于Perl Training Australia的套餐/ __ PACKAGE__参考.