如何从带有子名称的变量调用子？

Question

给出以下代码：

sub foo {
    say 'Hello';
}
my $call_me = 'foo';

我如何调用sub foousing $call_me？

Answer 1

使用：

::( "&" ~ $call_me )()

::访问当前包中的符号表；subs 与 sigil 一起存储在该符号表中，&这就是为什么我们必须将~名称与该名称连接起来才能从字符串到函数；该符号表将标识符映射到实际函数。

对于方法来说，这更容易：

my $method-name = "foo";
$object."$method-name"();

请注意，您可以在其中创建一个名称""，它不必只是一个变量名称。

另请注意，()在这种情况下是必需的。