Perl系统调用会导致核心转储,但$?保持零度

首先,你有一个无用的 cat 在命令行中,可以很容易地用重定向替换。

我会尝试将命令更改为如下内容

my $command = "cd $STEPBYSTEP_HOME/collins-parser && code/parser $src models/model$model_num/grammar 10000 1 1 1 1 < models/model$model_num/events 1> $dest 2> $parse_log";

另外,如果您试图最小化输入文件以查找导致崩溃的原因,我强烈建议您使用 Delta 从而有效地实现自动化

首先,在你展示的代码中有一些可疑的东西:你得到了 $? 在实际运行命令之前。现在我来讨论一下你想写什么:

my $command = "cd $STEPBYSTEP_HOME/collins-parser;" .
              "cat models/model$model_num/events | code/parser $src models/model$model_num/grammar 10000 1 1 1 1 1> $dest 2> $parse_log";
my $ret_val = `$command`;
my $ret_code = $?;

在此之后, $ret_code 包含整个shell命令的状态。反过来,这是列表中最后一个命令的状态,它是一个管道 cat ... | code/parser ... . 根据shell的不同,这可能是管道中最后一个命令的状态,即, code/parser (ksh,zsh),或始终为0(大多数壳,包括ash、bash和pdksh)。

在你的例子中,有一个简单的修复方法,就是去掉无用的 cat :

my $command = "cd $STEPBYSTEP_HOME/collins-parser &&" .
              "<models/model$model_num/events code/parser $src models/model$model_num/grammar 10000 1 1 1 1 1> $dest 2> $parse_log";
my $ret_val = `$command`;
my $ret_code = $?;

如果你有一个有用的命令而不是 猫 你最好的选择是完全不使用外壳。这还有其他一些小好处:少了一个要掌握的工具;更容易移植到非UNIX系统;使用包含shell元字符的文件名(这也可以通过系统地使用 quotemeta )这是这个想法的要点(未经检验); perldoc -f open 和 perldoc perlipc 也许有帮助。

use File::Slurp;
if (open my $fh, "|-") {
    # Parent code
    my $ret_val = read_file($fh);
    close($ret_code);
    my $ret_code = $?;
    ...
} else { # Child code
    chdir "$ENV{STEPBYSTEP_HOME}/collins-parser" or die $!;
    open STDIN, "<", "models/model$model_num/events" or die $!;
    open STDOUT, ">", $dest or die $!;
    open STDERR, ">", $parse_log or die $!;
    exec "code/parser", $src, "models/model$model_num/grammar", "1", "1", "1", "1", "1";
    die $!;
}

因为CRT正在中止程序(也就是说,它实际上没有 崩溃 通过一个信号,CRT看到了垃圾堆金丝雀并手动中止了进程),其返回值将为零。我认为你在这里能做的最好的事情是:

`cat $input | c_binary 2>&1`

这样就可以捕获crt-gunk,并在perl脚本中检测到它。

为您的 c_binary

#include <string.h>
void f(void)
{
  char smallbuf[9];
  strcpy(smallbuf, "dy-no-MITE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!");
}
int main(void)
{
  f();
  return 0;
}

这个Perl程序运行它的映像

#! /usr/bin/perl

use warnings;
use strict;

use POSIX;

if (system("./c_binary") == 0) {
  print "$0: c_binary exited normally\n";
}
else {
  warn "$0: c_binary exited ", ($? >> 8), "\n",
       WIFSIGNALED($?)
         ? ("  - terminated by signal ", WTERMSIG($?), "\n") : ();
}

我得到

$ ./boom

*** stack smashing detected ***: ./c_binary terminated
./prog.pl: c_binary exited 0
  - terminated by signal 11

如你所见,你需要使用 WIFSIGNALED 和 WTERMSIG 从 POSIX 模块以编程方式检测 C2二进制 被一个信号杀死,而不仅仅是出口状态本身:

无线电信号的

WIFSIGNALED($?) 如果子进程由于信号而终止,则返回true

韦特米格

WTERMSIG($?) 返回子进程终止的信号(仅当 WiFielDead($?) 是真的)