Question

我目前正在为公司编写安装程序，以便我们可以轻松设置新计算机。其中一部分是通过单独的perl -MCPAN -e 'install "Module::Name"'命令安装的一系列CPAN模块。我创建了一个模块数组（大约200个），它通过bash脚本中的foreach循环安装。但是，我现在想在启动新模块之前检查模块安装的退出状态，这可能吗？这是我到目前为止所做的：

for i in "${CPANmodules[@]}"
do
    echo -e "\033[1;32mInstalling CPAN module $i \033[0m"
    perl -MCPAN -e "install \"$i\""
    if [ $? -ne 0 ]
    then
        echo "Error installing module $i"
    fi
done

我也试过以下内容，但没有成功：

perl -MCPAN -e 'install "Madeup::Modulename"'
perl -e 'print $?'

但是，即使模块甚至不存在，它也始终返回0。

任何帮助都将不胜感激。

Answer 1

您可以使用failed命令显示当前会话中make，test或install失败的所有模块。遗憾的是，failed并未返回失败次数，只是将结果打印到STDOUT。

可能有更好的方法，但使用以下hack过滤输出似乎有效：

perl -MCPAN -wE '
    CPAN::Shell->install("Foo::Bar");
    open my $buffer, ">", \my $failed or die $!;
    my $stdout = select $buffer;
    CPAN::Shell->failed;
    select $stdout;
    close $buffer;
    exit 1 unless $failed =~ /Nothing failed in this session/'

（将STDOUT重定向到从simbabque's answer转到另一个SO问题的变量的代码

请注意，如果在CPAN上找不到模块，则返回零，因为它甚至永远不会进入make阶段。

您还可以使用uptodate命令，如果安装了指定的模块并且是最新的，则返回1：

perl -MCPAN -wE '
    $name = "Foo::Bar";
    CPAN::Shell->install($name);
    $mod = CPAN::Shell->expandany($name);
    exit(! defined $mod || ! $mod->uptodate)'

当然，如果您要安装旧版本的模块（我不确定开发版本），这将无效。

如果您愿意尝试不同的安装程序，cpanm实际上会返回合理的值：0表示成功安装和升级，1表示未找到或未能安装的模块。

Answer 2

使用这种形式的CPAN安装方法

sudo perl -MCPAN -e 'CPAN::Shell->install("Devel::Cover") or exit 18'

如何检查perl -MCPAN -e的返回值/退出状态？

2 个答案: