通过重定向捕获Perl系统命令的返回码

Question

我正在尝试捕获system调用的返回码。 为简单t.sh ，请考虑一个您知道返回代码1的命令，例如以下bash脚本t.sh ：

#! /bin/bash
exit 1

然后考虑：

use warnings;
use strict;
use feature qw(say);

my $res=system("t.sh");
say ($?>>8);

$res=system("t.sh &>/dev/null");
say ($?>>8);

哪个打印

1
0

为什么第二个system调用（带有错误重定向的那个）给我零返回码？

Answer 1

我无法使用Bash v4.1.2复制您的问题：

$ perl -wE 'system( q{/bin/bash -c "true &> /dev/null"} ); say $? >> 8'
0
$ perl -wE 'system( q{/bin/bash -c "false &> /dev/null"} ); say $? >> 8'
1

但是， &>重定向操作符不是可移植的， 通常应避免使用 。 我不确定，但似乎在早期版本中可能无法正常工作。 ^*

以下语法在语义上是等效的，并且更具可移植性：

>file 2>&1

（请注意&在2>&1 ）

改用它。

---

*根据《 高级Bash脚本指南》的规定 ，“此操作符从Bash 4（最终版本）开始起作用。”