移动/克隆安装的 perlbrew perl 加上所有附加的 cpan 模块

Question

我正在使用 perlbrew。 我在perlbrew perl-5.20.2下安装了很多 cpan 模块。

有没有一种方法（或者什么是最好的方法）来安装我的 perl-5.20.2 加上我在 perlbrew 下安装的所有 CPAN 模块，这样我就可以将它克隆到另一台机器上？

我知道perlbrew download perl-5.20.2但这似乎只是 tarball perl-5.20.2 而不是我安装的所有 CPAN 模块。

Answer 1

使用perlbrew，您可以使用lib命令创建一个local::lib来与perlbrew perl一起使用。

perlbrew lib create perl-5.20.2@app_reqs

然后，如果一切顺利，当您安装模块时，您将在以下位置找到它们：

$HOME/.perlbrew/libs/perl-5.20.2@app_reqs

如果您不使用perbrew lib create方法来管理模块，那么它们将安装到$HOME/perl5/perlbrew/perls/perl-5.20.1/lib/site_perl/5.20.2 。 克隆这些目录中的任何一个都可能有效，但是最好使用perlbrew.pl网站上的技术重新安装所有模块，因为应该重建XS模块等 。

如果要重用和跟踪本地源，最可靠的方法是使用App::lcpan或minicpan创建本地CPAN镜像。 如果您已经使用cpanm下载了源代码， cpanm快速的hackish方法是找到源文件（在$HOME/.cpanm/ ）并在shell中执行以下操作：

% mkdir  ~/cpansourcefiles  
% for source in ~/.cpanm/work/*/* ; do cp $source ~/cpansourcefiles ;done

然后，您可以通过将文件名作为参数而不是模块名称来使用这些源来安装cpanm ：

% cpanm ~/cpansourcefiles/List-MoreUtils-0.406.tar.gz

甚至：

% cpanm ~/cpansourcefiles/*  

注意： YMMV因为它很容易破损，可能会跳过你通常使用cpanm获得的一些版本和依赖项检查，但它比在工作时设置镜像更简单。

---

一些其他高性能工具使Perl应用程序部署稳健可靠：

• 纸板箱
• 斑马

---

编辑 ：

像工具perlbrew ， pinto ， carton和cpanm超过做类似的事情脚本的五花八门的个人收藏一个巨大的进步。 感谢这些工具的所有开发人员和贡献者！

我不知道在任何功能cpanm或perlbrew ，使您可以可靠地生产安装的文件及其版本的列表。 就像是：

 cpanm --list_installed
 perlbrew list_installed_versions

要么：

 cpanm --export-cpanfile
 perlbrew list_installed_as_cpanfile

可能是一个受欢迎的功能。

正如我在上面对OP的评论中所指出的，您可以从cpanm安装的install.json文件中获取有关模块安装的有用信息。 像CPAN::Meta ， Module::Metadata和Distribution::Metadata Module::Metadata也很有帮助。

使用find和jq的建议（来自@Ilmari Karonen，请参阅本答案中 的local :: lib安装升级所有模块 ）导致下面快速未完成的黑客攻击。 一个挑战/问题是有时install.json文件留在多个位置：

• lib/perl5/$Config{archname}/.meta/Whatever-Mod-1.0050000/install.json
• lib/perl5/$Config{archname}/.meta/Whatever-Mod-1.0090000/install.json
• ... 等

这可能是因为在升级，重新安装或其他有关PEBKAC错误的问题时，并不总是干净地删除这些文件。 要正常工作，应该更改下面的代码，以便在模块的install.json有多个名称 - 版本组合时注意到，然后更彻底地检查模块是否已安装并获得其版本。 脚本应该有选项： $dir可能来自@ARGV 。 TIMTOWTDI，“自愿参加” 等 。

#!perl  
# list_installed_mods.pl 
# DOES NOT THOROUGHLY VERIFY CURRENT VERSION

use File::Find;                                       
use JSON;                                       
use v5.16;     
my $dir = "$ENV{HOME}/perl5/lib/perl5";      

for my $installed ( find_installed($dir) ) {     
  say parse_install_json( $installed );     
} 

sub find_installed {  
  my $libdir = shift;    
  my @files;   
  File::Find::find ({ wanted => 
    sub { push @files, $File::Find::name if /install\.json/i} },
    $libdir );
  return @files; 
} 

sub parse_install_json {
  my $filename = shift;
  my $json_text = do {   
   open(my $json_fh, "<:encoding(UTF-8)", $filename)                
      or die("Can't open \$filename\": $!\n");                          
   local $/;
   <$json_fh>                                                           
  }; 
  my $install = decode_json($json_text) ;   
  return ( $install->{name} ,"\@", $install->{version} ) ;
} 

Answer 2

可能不是最好的方式，但这是我最近做的。

我将我的Perlbrewed Perl版本提交给git repo，所以我可以使用git archive为我创建一个tar。 与我的Local::Lib模块一样。 然后我编写了一些脚本，以便我可以标记master，从标记构建存档，将存档复制到远程服务器，解压缩和chmod / chown文件。

我这样做是因为当时没有时间设置Pinto或Carton是一个快速而肮脏的解决方案。

Answer 3

它只是解决方案的一部分，但是到目前为止要提到：Perl的configure脚本有一些-D relocateableinc参数，因为有些版本。 当使用该选项构建/酿造Perl时，lib路径将不是硬编码的绝对路径，而是相对于perl二进制文件，它允许您移动整个目录或仅重命名它。 我多年来一直用这个选项构建我的所有Perl，到目前为止它还没有产生任何问题。

Answer 4

clone-modules命令可能正是您要找的。

以下命令的示例 output 如下：

perlbrew clone-modules perl-5.36.0 perl-5.37.6

Installing 398 modules from perl-5.36.0 to perl-5.37.6 ...

! Couldn't find module or a distribution AWS-Signature4
Successfully installed Algorithm-Diff-1.201
Successfully installed Algorithm-Loops-1.032
Successfully installed Module-Build-0.4231
Successfully installed ExtUtils-PkgConfig-1.16
Successfully installed Alien-VideoLAN-LibVLC-0.04
Successfully installed File-Slurp-9999.32

您可以在使用 perlbrew 构建新的perl后运行此命令，通过为刚刚构建的新版本重新安装它们来将（最新版本的） perlbrew模块从一个版本迁移到另一个版本。