Question

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

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

不幸的是，如果该函数不存在，则输出“未定义的子程序＆amp; 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});

参考文献：
perlmod页面上的__PACKAGE__引用。

Packages/__PACKAGE__参考澳大利亚Perl培训。

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

4 个答案: