Question

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

#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");

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

1 个答案: