Perl脚本反引号/系统命令失败时如何让主脚本返回非0退出状态

问题本质是Perl默认不会将反引号、system等外部命令的子进程错误状态同步到主进程，主进程只要执行完所有逻辑就会按最终的exit值返回。要实现全场景错误终止，可按以下方案处理：

方案1：自动捕获所有错误（推荐） #

使用Perl核心模块autodie配合致命警告配置，无需额外安装，所有错误场景会自动触发终止：

1. 在脚本开头添加以下配置：

use strict;
# 所有警告直接升级为致命错误，主逻辑错误立刻终止
use warnings FATAL => 'all';
# 自动捕获反引号、system、文件操作等所有系统相关调用的错误
use autodie qw(:all);

2. 改后的示例代码如下：

use strict;
use warnings FATAL => 'all';
use autodie qw(:all);

my $var1=`cat /gra/def/ment/ckfile.txt`;  # 文件不存在时会直接抛出异常终止脚本
print "Hello World";
exit 0;

此时如果ckfile.txt不存在，脚本会在反引号执行后立刻终止，退出码为非0。

方案2：手动检查外部命令状态 #

如果不想用autodie，可以手动检查每一条外部命令的退出状态变量$?：

• 反引号执行后检查$?，非0则主动终止：

my $var1=`cat /gra/def/ment/ckfile.txt`;
if ($? != 0) {
    # $?>>8 可以拿到子进程的真实退出码
    die "cat命令执行失败，退出码：" . ($? >> 8);
}

• system命令执行后也用同样的逻辑检查$?即可。

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