Perl中如何通过存储子程序名的变量调用子程序？

在Perl中，你可以通过以下几种方式用存储子程序名的变量调用对应子程序：

1. 符号引用方式（简易但严格模式下受限） #

直接通过变量名构造符号引用调用，写法有两种：

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

&$call_me();       # 简化写法
# 或者 &{$call_me}(); # 完整写法

注意：如果代码开启了use strict 'refs'，这种方式会触发错误，因为严格模式默认禁止符号引用。

2. 获取CODE引用调用（推荐，严格模式兼容） #

先通过\&$call_me获取子程序的CODE引用，再通过箭头操作符调用，这是更安全的方式：

use strict;
use warnings;

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

my $code_ref = \&$call_me;
$code_ref->();     # 调用子程序

# 也可以直接合并成一行：
(\&$call_me)->();

这种方法在严格模式下完全可用，避免了符号引用的安全风险。

3. 利用命名空间哈希调用 #

Perl的全局命名空间存储在%::哈希中，子程序名作为键对应CODE引用，你可以直接通过哈希访问调用：

use strict;
use warnings;

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

$::{$call_me}->(); # 调用foo子程序

如果子程序属于自定义命名空间（比如MyModule::foo），只需替换为对应命名空间的哈希，例如$MyModule::{$call_me}->()。

内容的提问来源于stack exchange，提问作者Jim Bollinger