从 Perl 运行命令时分段错误消失

Question

我有一个引发 SIGSEGV 的简单 c++ 程序：

#include <iostream>
#include <signal.h>

int main() {
    std::cout << "Raising seg fault..." << std::endl;
    raise(SIGSEGV);
    return 0;
}

运行此程序时，我得到以下输出

Raising seg fault...
Segmentation fault

但是当我使用管道在 perl 脚本中运行我的程序时，分段错误消失了。 这是我的 Perl 脚本：

use strict;
use warnings;


my $cmd ="./test";

open (OUTPUT, "$cmd 2>&1 |") || die();
while (<OUTPUT>) {
      print;
}
close (OUTPUT);
my $exit_status = $?>>8;
print "exit status: $exit_status\n";

我在运行脚本时得到以下输出：

Raising seg fault...
exit status: 0

这怎么可能？分段错误在哪里，为什么退出状态为0？

Answer 1

您特别忽略了$? 中指示进程是否被信号终止的部分。

替换

my $exit_status = $?>>8;
print "exit status: $exit_status\n";

与

die("Killed by signal ".( $? & 0x7F )."\n") if $? & 0x7F;
die("Exited with error ".( $? >> 8 )."\n") if $? >> 8;
print("Completed successfully\n");