为了开发,我安装了我自己的 Perl 并且不理会系统 Perl。如果我想升级系统 Perl,我使用系统包管理器。对于我的 Perl 开发,我使用 cpan 工具。
由于我将它们分开,我不应该弄乱系统维护任务等所需的 Perl,但我不必依赖系统的开发决策。
安装单独的 Perls 非常容易。当您从源代码分发版运行配置时,它会询问您要将所有内容安装在哪里。给它任何你喜欢的路径。例如,我在/usr/local/perls中安装了许多 Perls ,并且每个安装的所有内容都单独存在。然后我在/usr/local/bin中为它们创建符号链接(例如 perl5.8.9、perl.5.10.0、perl5.10.0 线程)。当我想要一个特定版本时,我只使用我想要的那个:
$ perl5.10.0 program.pl
特定的二进制文件确保程序选择正确的模块搜索路径等等(与该二进制文件的 Config.pm 模块中的内容相同)。
这是我用来创建符号链接的脚本。它在 bin 目录中查找,找出 Perl 版本,并制作类似的链接cpan5.10.1
等等。每个程序都已经知道要调用的正确 perl:
#!perl
use 5.010;
use strict;
use warnings;
use File::Basename;
use File::Spec::Functions;
my $perls_directory = catfile(
$ARGV[0] // '/usr/local/perls',
'perl*'
);
die "$perls_directory does not exist!\n"
unless -d dirname $perls_directory;
my $links_directory = $ARGV[1] // catfile( $ENV{HOME}, 'bin' ); #/
die "$links_directory does not exist!\n" unless -d $links_directory;
foreach my $directory ( glob( $perls_directory ) )
{
say "Processing $directory...";
unless( -e catfile( $directory, 'bin' ) )
{
say "\tNo bin/ directory. Skipping!";
next;
}
my @perls = glob( catfile( $directory, qw( bin perl5* ) ) );
my( $perl_version ) = $perls[0] =~ m/(5\.\d+\.\d+)\z/;
say "\tperl version is $perl_version";
foreach my $bin ( glob( catfile( $directory, 'bin', '*' ) ) )
{
say "\tFound $bin";
my $basename = basename( $bin );
my $link_basename = do {
if( $basename =~ m/5\.\d+\.\d+\z/) { $basename }
else { "$basename$perl_version" }
};
my $link = catfile( $links_directory, $link_basename );
next if -e $link;
say "\t\tlinking $bin => $link";
symlink $bin => $link or
warn "\t\tCould not create symlink [$!]: $bin => $link!";
}
}
对于特定的 Perl,一切都安装在正确的位置。
我也一直在考虑应该将那些 Perl 目录置于某种源代码控制之下。如果我添加了一个我不喜欢的模块,我会退回到较早的版本。不过,我才刚刚开始这样做,而且还没有玩太多。
我在 Effective Perler 博客中写了更多关于这类事情的文章: