☰

Perl：杀死程序后返回到 open3 的错误代码

tag-icon • tag-icon bash shell perl exit-status
Perl：杀死程序后返回到 open3 的错误代码

open3该程序显示运行 或 时sleep 3返回哪个错误true;sleep 3并被sleep终止：

#!/bin/bash                                                                                                           
doit() {
  shell="$1"
  prg="$2"
  (sleep 2 && killall sleep) &
  perl -MIPC::Open3 -e 'open3($a,$b,$c,"'$shell'","-c","'"$prg"'"); wait; print $?>>8,"\n"'
}
export -f doit
parallel -j1 --tag doit \
  ::: ash bash csh dash fdsh fish fizsh ksh ksh93 mksh posh rc sash sh static-sh tcsh yash zsh \
  ::: '/bin/sleep 3' 'true;/bin/sleep 3'

在我的系统上它给出：

ash /bin/sleep 3        143
ash true;/bin/sleep 3   143
bash /bin/sleep 3       0
bash true;/bin/sleep 3  143
csh /bin/sleep 3        143
csh true;/bin/sleep 3   143
dash /bin/sleep 3       143
dash true;/bin/sleep 3  143
fdsh /bin/sleep 3       143
fdsh true;/bin/sleep 3  143
fish /bin/sleep 3       143
fish true;/bin/sleep 3  143
fizsh /bin/sleep 3      143
fizsh true;/bin/sleep 3 143
ksh /bin/sleep 3        0
ksh true;/bin/sleep 3   0
ksh93 /bin/sleep 3      0
ksh93 true;/bin/sleep 3 0
mksh /bin/sleep 3       0
mksh true;/bin/sleep 3  143
posh /bin/sleep 3       143
posh true;/bin/sleep 3  143
rc /bin/sleep 3 1
rc true;/bin/sleep 3    1
sash /bin/sleep 3       255
sash true;/bin/sleep 3  0
sh /bin/sleep 3 143
sh true;/bin/sleep 3    143
static-sh /bin/sleep 3  143
static-sh true;/bin/sleep 3     143
tcsh /bin/sleep 3       143
tcsh true;/bin/sleep 3  143
yash /bin/sleep 3       0
yash true;/bin/sleep 3  0
zsh /bin/sleep 3        0
zsh true;/bin/sleep 3   0

我可以解释所有返回 143 的程序。但是什么原因导致其他错误值呢？我特别困惑的是bash它给出了两个不同的值。

答案1

为了

bash /bin/sleep 3       0

我们可以观察这个情况strace

$ strace -f -e trace=process bash -c 'sleep 1'
execve("/usr/bin/bash", ["bash", "-c", "sleep 1"], [/* 22 vars */]) = 0
arch_prctl(ARCH_SET_FS, 0x7ffff7fe3740) = 0
execve("/usr/bin/sleep", ["sleep", "1"], [/* 22 vars */]) = 0
arch_prctl(ARCH_SET_FS, 0x7ffff7fe3740) = 0
exit_group(0)                           = ?
+++ exited with 0 +++
$

在没有任何TERM信号发生的情况下，显示将bash其自身替换为sleep;相比之下，复合true;sleep 3形式将显示 a clone（如果在 Linux 上），而bash不是分叉出sleep并处理退出代码。

通过SIGTERM参与，我们看到：

$ strace -f -e trace=process bash -c 'sleep 999'
execve("/usr/bin/bash", ["bash", "-c", "sleep 999"], [/* 22 vars */]) = 0
arch_prctl(ARCH_SET_FS, 0x7ffff7fe3740) = 0
execve("/usr/bin/sleep", ["sleep", "999"], [/* 22 vars */]) = 0
arch_prctl(ARCH_SET_FS, 0x7ffff7fe3740) = 0
--- SIGTERM {si_signo=SIGTERM, si_code=SI_USER, si_pid=3896, si_uid=0} ---
+++ killed by SIGTERM +++
$ echo $?
143
$

这给我们带来了 Perl 代码，它是不正确的；Perl中$?表示16位状态字from wait(2)，而不是 shell 将该 16 位状态字改造成的任何值。您仅打印退出代码信息，对于信号而言，该信息确实为 0。如果改为使用print $?>>8对内容的正确检查：$?

#!/usr/bin/env perl
use 5.14.0;
use warnings;
use IPC::Open3 qw(open3);

my ( $input, $output, $err );
open3( $input, $output, $err, qw(bash -c), "sleep 999" );
wait;

if ( $? == -1 ) {
    say "noexec $!";
} elsif ( $? & 127 ) {
    printf "died signal=%d core=%s\n",
                 ( $? & 127 ), ( $? & 128 ) ? 'yea' : 'nay';
} else {
    say "exit ", $? >> 8;
}

然后 Perl 将正确报告bash -c 'sleep 3'杀死情况：

$ perl ipcopenfoo
died signal=15 core=nay
$

相关内容