如何在FreeBSD中用Perl脚本自动安装Perl包且无需交互

批量部署服务器时，CPAN安装过程中的确认提示、密码输入确实会拖慢效率，我给你几个靠谱的自动化方案：

方案1：配置CPAN为非交互自动模式 #

直接在脚本里预先设置CPAN的配置参数，让它自动接受所有默认选项、自动安装依赖，完全跳过交互步骤：

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use CPAN;
use CPAN::HandleConfig;

# 初始化CPAN为非交互自动模式
CPAN::HandleConfig->load;
$CPAN::Config->{prerequisites_policy} = 'follow';    # 自动安装依赖模块
$CPAN::Config->{build_requires_install_policy} = 'yes'; # 自动安装构建所需依赖
$CPAN::Config->{commit} = 'yes';                      # 自动确认配置变更
$CPAN::Config->{no_proxy} = '';                       # 如果有代理可以在这里设置
CPAN::HandleConfig->commit;

# 批量检查并安装模块
my @required_modules = qw(
    JSON
    Net::Address::IP::Local
    Net::OpenSSH
    Net::SCP::Expect
);

foreach my $module (@required_modules) {
    eval "use $module";
    if ($@) {
        print "Installing missing module: $module\n";
        CPAN::install($module);
        # 安装后再次验证加载
        eval "use $module";
        die "Failed to load $module after installation: $@" if $@;
    } else {
        print "Module $module is already installed\n";
    }
}

方案2：结合sudo自动处理权限问题 #

如果你的模块需要系统级安装（需要sudo权限），可以通过环境变量传递密码，避免手动输入：

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

# 从环境变量获取sudo密码（建议部署时通过安全方式传递，不要硬编码）
my $sudo_password = $ENV{PERL_SUDO_PASSWORD} 
    or die "Please set PERL_SUDO_PASSWORD environment variable first";

my @required_modules = qw(
    JSON
    Net::Address::IP::Local
    Net::OpenSSH
    Net::SCP::Expect
);

foreach my $module (@required_modules) {
    eval "use $module";
    if ($@) {
        print "Installing $module with sudo...\n";
        # 使用sudo -S从标准输入读取密码，实现无交互
        my $install_command = sprintf(
            "echo '%s' | sudo -S perl -MCPAN -e 'install \"%s\"'",
            $sudo_password, $module
        );
        system($install_command) == 0 
            or die "Failed to install $module: Exit code $?";
        
        # 验证安装结果
        eval "use $module";
        die "Failed to load $module post-install: $@" if $@;
    }
}

安全提醒：通过环境变量传递密码比硬编码更安全，但要确保部署环境中只有授权用户能看到这个环境变量。

方案3：使用cpanm（推荐！） #

cpanm（CPAN Minus）是专门为自动化场景设计的CPAN客户端，默认就是无交互模式，自动处理依赖，安装速度也更快。可以先在脚本里自动安装cpanm，再用它来装模块：

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

my @required_modules = qw(
    JSON
    Net::Address::IP::Local
    Net::OpenSSH
    Net::SCP::Expect
);

# 检查cpanm是否已安装，没有则自动安装
unless (`which cpanm 2>/dev/null`) {
    print "Installing cpanm first...\n";
    # 用curl拉取安装脚本，--sudo表示系统级安装
    system("curl -L https://cpanmin.us | perl - --sudo App::cpanminus") == 0
        or die "Failed to install cpanm";
}

# 批量安装模块
foreach my $module (@required_modules) {
    eval "use $module";
    if ($@) {
        print "Installing $module via cpanm...\n";
        # --sudo用于系统级安装，--notest可以跳过测试加速（按需选择）
        system("cpanm --sudo $module") == 0
            or die "Failed to install $module: Exit code $?";
        
        eval "use $module";
        die "Failed to load $module: $@" if $@;
    }
}

这个方案是我最推荐的，因为cpanm本身就是为自动化和批量场景优化的，很少会出现奇怪的交互问题。

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