在 Perl 中调用子例程的非标准方式

Question

我正在尝试一种在 Perl 脚本中调用子例程的不同方式。

我有一组函数如下：

sub Testcase_CheckStatus {
    print "TestCase_CheckStatus called\n";
}

然后我正在使用“CheckStatus”之类的键遍历 Perl 哈希：

while (my ($k, $v) = each %test_cases) {
    print "TestCase_$k","\n";
    Testcase_$k();
}

基本上，我想在解析哈希键时像上面一样调用函数Testcase_CheckStatus，但是我收到了这个错误：

无法在 ./main.pl 第 17 行通过包“CheckStatus”定位对象方法“Testcase_”（也许您忘记加载“CheckStatus”？）

我可以做些什么来纠正这个问题？有没有其他方法可以做到这一点？

Answer 1

其他方式：

use 5.010;
use warnings;
use strict;


my $testcases = {
    test_case_1 => sub {
        return 1 * shift();
    },
    test_case_2 => sub {
        return 3 * shift();
    },
    test_case_3 => \&SomeSub,
};

for (1 .. 3) {
    say $testcases->{ 'test_case_' . $_ }(7);
}


sub SomeSub {
    return 5 * shift();
}

Answer 2

以下内容应该可以让你做你想做的事：

while (my ($k, $v) = each %test_cases) {
    print "TestCase_$k","\n";
    &{"Testcase_$k"}();
}

但是，如果 strict 正在使用，这将不起作用。如果您使用strict，则需要在while 循环中使用no strict，例如：

while (my ($k, $v) = each %test_cases) {
    no strict 'refs';

    print "TestCase_$k","\n";
    &{"Testcase_$k"}();
}