是否有Perl模块/编译指示可合并分组多个use导入语句？

当然有现成的工具可以搞定这种批量导入需求，不用自己造轮子，以下几个模块完全贴合你的场景：

1. Importer 模块 #

这是最匹配你给出语法的解决方案，直接支持「前缀+子模块名列表」的批量导入：

use Importer 'My::Plugin', qw(FeatureA FeatureB AnotherFeature);

如果要导入非默认符号，也可以灵活指定每个子模块的导出内容：

# 给FeatureA指定自定义导出符号，FeatureB不导入默认符号，AnotherFeature导入全部
use Importer 'My::Plugin', {
    FeatureA => [qw(get_config set_config)],
    FeatureB => [],
    AnotherFeature => qw(:all)
};

它的行为和普通use语句一致，都是编译时执行导入，完全符合你要的编译指示形式。

2. Module::Load 自定义批量导入 #

如果需要更细粒度的控制，Module::Load可以帮你手动实现批量导入逻辑，代码简洁且可控：

use Module::Load;

my $prefix = 'My::Plugin';
my @features = qw(FeatureA FeatureB AnotherFeature);

foreach my $feature (@features) {
    my $module = "${prefix}::${feature}";
    load $module;
    # 手动指定要导入的符号，替代默认import行为
    $module->import(qw(custom_sub));
}

3. Import::Into 进阶动态导入 #

如果需要跨包或者运行时动态导入的场景，Import::Into可以配合前缀实现批量导入，适合复杂的模块加载场景：

use Import::Into;

my $prefix = 'My::Plugin';
foreach my $feature (qw(FeatureA FeatureB)) {
    "${prefix}::${feature}"->import::into(scalar caller);
}

其中Importer模块最贴合你想要的用法，不需要额外写循环逻辑，直接一行搞定批量导入，还支持自定义导出符号，完全满足你的需求。

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