如何在Perl运行时获取已通过use/require导入的所有包列表？

当然可以实现！你要的是程序运行过程中实际通过use/require导入的包列表，而非系统中已安装的所有包，这在Perl里是完全可行的。下面给你两种实用的方案：

方法1：利用Perl内置的符号表和%INC哈希 #

Perl会把所有通过use/require加载的模块路径记录在%INC哈希中，同时每个加载的包都会在全局符号表%::中创建对应的条目。我们可以结合这两者来筛选出真正导入的包：

use strict;
use warnings;

# 示例导入的模块
use Data::Dumper;
use List::Util qw(sum);
require POSIX;

# 遍历根符号表，筛选已加载的包
my @loaded_packages;
foreach my $sym_entry (keys %::) {
    # 过滤掉非包的符号表项（比如特殊变量、子例程）
    next unless $sym_entry =~ /^\w+::$/;
    
    my $pkg_name = $sym_entry =~ s/::$//r; # 去掉末尾的::
    # 转换包名为%INC中的路径格式
    my $inc_path = $pkg_name;
    $inc_path =~ s{::}{/}g;
    $inc_path .= '.pm';
    
    # 确认该包确实是通过use/require加载的
    if (exists $INC{$inc_path}) {
        push @loaded_packages, $pkg_name;
    }
}

# 输出结果
print "运行时已导入的包:\n";
print join("\n", sort @loaded_packages), "\n";

关键说明： #

• %::是Perl的根符号表，每个已定义的包都会以PackageName::的形式作为键存在这里。
• %INC存储的是模块的加载路径，只有真正被use/require加载的模块才会出现在这里，能帮我们过滤掉手动动态创建的空包。

方法2：使用Package::Stash模块（更简洁） #

如果你不想手动处理符号表的细节，可以用Package::Stash这个CPAN模块，它提供了更友好的接口来操作Perl的包和符号表：

首先确保你已经安装了这个模块：

cpanm Package::Stash

然后编写代码：

use strict;
use warnings;
use Package::Stash;

# 示例导入的模块
use Data::Dumper;
use List::Util;
require JSON::PP;

my @loaded_packages;
# 获取根包（main）的stash对象
my $root_stash = Package::Stash->new('main');

# 遍历所有已定义的包名
foreach my $pkg_name ($root_stash->list_all_package_names) {
    # 转换为%INC中的路径格式
    my $inc_path = $pkg_name;
    $inc_path =~ s{::}{/}g;
    $inc_path .= '.pm';
    
    # 筛选出通过use/require加载的包
    push @loaded_packages, $pkg_name if exists $INC{$inc_path};
}

# 输出结果
print "运行时已导入的包:\n";
print join("\n", sort @loaded_packages), "\n";

额外注意事项： #

• 一些Perl核心模块（比如strict、warnings）会在程序启动时自动加载，所以它们也会出现在结果列表中。
• 如果你只想要自己显式导入的包，可以在程序启动后先记录初始的%INC状态，再在需要检查时对比差异。
• 对于通过require动态加载的模块（比如根据条件加载的），只要require执行成功，就会被捕获到。

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