☰

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を返すすべてのプログラムを記述できます。しかし、他のエラー値の原因は何ですか？私が特に混乱しているのは、bash2つの異なる値を提供することです。

答え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。対照的に、複合型は終了コードを分岐して処理する代わりに（Linuxの場合）true;sleep 3を表示します。clonebashsleep

参加を通じて、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)、シェルが 16 ビット状態ワードを変更する値ではありません。シグナルの場合、実際にゼロの終了コード情報のみを印刷します。代わりに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;
}

bash -c 'sleep 3'その後、Perlは終了を正しく報告します。

$ perl ipcopenfoo
died signal=15 core=nay
$

関連情報