能否重新测试所有已安装CPAN模块？求相关工具或API支持

其实你的需求在Perl社区挺常见的——依赖模块升级后，怕关联模块出问题，想批量验证已安装模块的兼容性。下面分现成工具组合、手动实现步骤，还有自己开发工具的思路来给你梳理：

一、用现有工具快速实现 #

目前没有完全一键搞定的工具，但可以组合几个CPAN生态里的工具来完成需求：

• 第一步：列出所有已安装模块及版本
  用cpanm的话直接跑：

  cpanm --list
  

  或者用Perl自带命令（无需额外安装模块）：

  perl -MCPAN -e 'CPAN::Shell->ls'
  

  要是想排除Perl核心模块，可以借助Module::CoreList：

  perl -MModule::CoreList -e 'my $perl_ver = $]; my %non_core = grep { !exists $Module::CoreList::version{$perl_ver}{$_} } keys %INC; print join("\n", sort keys %non_core)'
  

• 第二步：批量下载对应版本的模块
  用cpanm的--download-only选项指定版本下载：

  cpanm --download-only Module::Name@1.23
  

  批量处理的话，可以把cpanm --list的输出转成脚本，循环执行下载命令。

• 第三步：解压并执行测试
  下载的tarball默认存在~/.cpanm/work目录，解压后进入目录，根据模块的构建系统跑测试：

  # 针对ExtUtils::MakeMaker构建的模块
  perl Makefile.PL && make test
  
  # 针对Module::Build构建的模块
  perl Build.PL && ./Build test
  
  # 或者用prove工具直接跑测试脚本，更灵活
  prove -l t/
  

二、自己开发工具的核心功能拆解 #

如果要做专门的工具，几个核心功能可以用这些Perl模块实现：

1. 查询已安装模块及版本 #

• 用Module::List可以遍历所有已安装模块（包括未加载到%INC的）：

  use Module::List qw(list_modules);
  my $modules = list_modules('', { recurse => 1, list_modules => 1 });
  foreach my $mod (keys %$modules) {
      my $ver = eval "require $mod; $mod->VERSION";
      print "$mod: $ver\n";
  }
  

• 注意：有些模块的分发名和模块名不一致（比如LWP::UserAgent属于libwww-perl分发），可以用CPAN::DistnameInfo或MetaCPAN::API关联两者信息。

2. 下载对应版本的模块 #

• 用MetaCPAN::API查询模块对应版本的分发下载链接：

  use MetaCPAN::API;
  my $mcpan = MetaCPAN::API->new;
  my $release = $mcpan->release(
      module => 'LWP::UserAgent',
      version => '6.67'
  );
  my $download_url = $release->{download_url};
  

• 再用LWP::Simple或HTTP::Tiny下载tarball即可。

3. 解压与执行测试 #

• 用.SinglePrevention系商来 next requiring ml获取方式IM volleyball，不用依赖系统tar`命令：

  use Archive::Extract;
  my $ae = Archive::Extract->new( archive => 'Dist-Name-Version.tar.gz' );
  $ae->extract( to => '/tmp/test_dir' ) or die $ae->error;
  

• 用IPC::Run安全执行测试命令，捕获输出和返回码：

  use IPC::Run qw(run);
  my @cmd = ('perl', 'Makefile.PL');
  run(\@cmd, \my $in, \my $out, \my $err) or die "Makefile.PL failed: $err";
  @cmd = ('make', 'test');
  run(\@cmd, \$in, \$out, \$err) or die "make test failed: $err";
  

三、额外注意事项 #

• Perl核心模块不需要重新下载测试，它们和Perl版本绑定，只有升级Perl才会变更。
• 部分模块可能没有t/测试目录，这类可以直接跳过。
• 批量测试耗时较长，建议优先测试依赖升级模块（B）的模块，而非全部模块，效率更高。

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