如何捕获Shell脚本调用Perl脚本的退出码及问题修正

1. Perl脚本修正 #

原Perl脚本存在两处关键问题：

• else分支错误使用未定义变量$ec，未正确设置退出码$ex；
• 冗余输出会干扰Shell对退出码的捕获（若无需输出建议直接移除）。

修正后的Perl代码：

my $a=0; my $b=0; my $c=0;
my $sum = $a+$b+$c; 
my $ex = 0; # 显式声明局部变量，避免全局变量污染
if($sum == 0){
    # 无需输出可删除该行
    print "success $ex\n";
}else{
    $ex = 1; # 正确设置非0退出码
    # 无需输出可删除该行
    print "Not success $ex\n";
}
exit $ex;

2. Shell脚本（csh语法）修正 #

原Shell脚本的核心问题：

• 使用set ecd = \abc.pl`捕获输出时，$?获取的是set命令的退出码（始终为0），而非abc.pl`的退出码；
• set变量赋值语法错误，csh中set var=value不能加空格。

场景1：无需Perl脚本输出 #

直接丢弃输出，仅捕获退出码：

# 执行Perl脚本并丢弃所有输出（标准输出+标准错误）
abc.pl > /dev/null 2>&1
# 立即获取abc.pl的退出码（必须紧跟目标命令）
set status = $?
echo $status
if ($status == 0) then
    echo "Here Status is $status"
else
    echo "Status is $status"
endif
echo $status

场景2：需保留Perl脚本输出 #

先捕获输出，再立即获取退出码：

# 执行脚本并保存输出到变量
set ecd = `abc.pl`
# 紧跟命令后获取abc.pl的退出码
set status = $?
echo "脚本输出: $ecd"
echo $status
if ($status == 0) then
    echo "Here Status is $status"
else
    echo "Status is $status"
endif
echo $status

Shell（csh/tcsh）学习要点 #

• 牢记变量赋值语法：csh中set var=value不能加空格，区别于bash的var=value；
• 理解$?的本质：仅代表上一条命令的退出码，必须紧跟目标命令执行后获取；
• 掌握输出重定向：>覆盖输出、>>追加输出、2>&1将标准错误重定向到标准输出、/dev/null用于丢弃无用输出；
• 熟悉条件判断：csh中if (表达式)的写法，数字/字符串比较均用==，注意变量类型匹配。

Perl学习要点 #

• 坚持用my声明局部变量，避免全局变量污染；
• 遵循Unix命令规范：exit $code中0表示执行成功，非0表示失败；
• 控制输出逻辑：用print/say输出内容，无需输出时直接注释或删除相关语句；
• 养成规范语法：语句结尾加分号，条件判断花括号配对，用缩进提升代码可读性。

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