perl - 如何优雅地调用名称保存在变量中的 Perl 子例程？

Question

我将要在运行时调用的子例程的名称保存在名为 $action 的变量中。然后我用它在正确的时间调用该子程序:

&{\&{$action}}();

工作正常。我唯一不喜欢的是它很丑，每次我这样做时，我都觉得有责任为下一个开发人员添加评论:

# call the sub by the name of $action

有人知道更漂亮的方法吗？

<小时/>

更新:这里的想法是避免每次添加新的可调用子项时都必须维护调度表，因为我是唯一的开发人员，所以我不担心其他程序员遵循或不遵循“规则”。为了我的方便牺牲了一点安全性。相反，我的调度模块会检查 $action 以确保 1) 它是定义的子例程的名称，而不是使用 eval 运行的恶意代码，2) 它不会运行任何以下划线开头的子程序，这将是通过此命名约定标记为仅供内部使用的子程序。

对这种方法有什么想法吗？我总是会忘记将调度表中的子例程列入白名单，而且我的客户宁愿我犯“它有效”而不是“它非常安全”的错误。 (开发应用程序的时间非常有限)

<小时/>

最终更新:我想我已经决定了调度表。虽然我很好奇读到这个问题的人是否曾经试图废除一个，以及他们是如何做到的，但我必须屈服于这里的集体智慧。感谢大家，许多精彩的回复。

Answer 1

与其将子例程名称存储在变量中并调用它们，更好的方法是使用子例程引用的哈希值(也称为 dispatch table 。)

my %actions = ( foo => \&foo,
                bar => \&bar,
                baz => sub { print 'baz!' } 
                ... 
              );

然后您就可以轻松调用正确的方法:

$actions{$action}->();

您还可以添加一些检查以确保 $action 是哈希中的有效键，等等。

一般来说，您应该避免符号引用(您现在正在做的事情)，因为它们会导致各种问题。此外，使用真正的子例程引用将在 strict 打开的情况下工作。