如何在Perl中堆叠函数定义并一次性调用所有函数？

需求可行性 #

这个需求完全可行，但你当前的写法会导致后加载的module1.pl里的fun直接覆盖掉module0.pl的同名子例程，直接调用fun("test")只会执行module1的版本。要让两个fun都执行，得避开子例程名冲突的问题，同时能调用到两个版本的函数。

优雅实现方案 #

方案1：给模块加独立命名空间（最推荐） #

修改两个模块，让它们的子例程归到各自的包（命名空间）下，彻底避免冲突：

module0.pl

package Module0;

sub fun {
    print "fun $_[0] from 0\n"
}

1;

module1.pl

package Module1;

sub fun {
    print "fun $_[0] from 1\n"
}

1;

main.pl

BEGIN{push @INC, "."};

require "module0.pl";
require "module1.pl";

# 分别调用不同命名空间下的fun
Module0::fun("test");
Module1::fun("test");

执行输出：

fun test from 0
fun test from 1

这种写法完全符合Perl的模块化规范，逻辑清晰还容易维护，是最优解。

方案2：加载时保存函数引用 #

要是不想改模块代码，可以在加载每个模块后立刻把当前的fun引用存起来，防止被后续模块覆盖：

main.pl

BEGIN{push @INC, "."};

# 加载module0后保存它的fun引用
require "module0.pl";
my $fun_from_0 = \&fun;

# 加载module1后保存它的fun引用
require "module1.pl";
my $fun_from_1 = \&fun;

# 分别调用两个引用
$fun_from_0->("test");
$fun_from_1->("test");

这种方式不用动模块，但依赖加载顺序，可读性不如命名空间方案。

方案3：让模块自动注册函数 #

修改模块，让它们把自己的fun加到全局数组里，主程序直接遍历调用所有注册的函数就行：

module0.pl

# 声明全局数组，用来存所有fun的引用
our @ALL_FUNS;
push @ALL_FUNS, \&fun;

sub fun {
    print "fun $_[0] from 0\n"
}

1;

module1.pl

our @ALL_FUNS;
push @ALL_FUNS, \&fun;

sub fun {
    print "fun $_[0] from 1\n"
}

1;

main.pl

BEGIN{push @INC, "."};

# 声明全局数组接收模块注册的函数
our @ALL_FUNS;
require "module0.pl";
require "module1.pl";

# 遍历调用所有注册的fun
$_->("test") for @ALL_FUNS;

这种方式适合需要动态加载多个同类模块的场景，扩展性很强。

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