статус Выход ребенка породил в трубе

Question

Простой вопрос, но я не могу найти хороший ответ - здесь идет с примером:

«world.pl» нерестится «hello.pl» в детстве и обрабатывает его стандартный вывод. «world.pl» должен знать статус выхода «hello.pl». Выполнение системного вызова не является вариантом, так как «world.pl» необходимо обработать стандартное «hello.pl». Я также пытаюсь избежать fork(). Вопрос: Как «world.pl» может найти статус выхода «hello.pl»? Используя perl v5.12.4 на Дарвине, если это имеет значение. Спасибо заранее, - М.

#!/opt/local/bin/perl -w 
## hello.pl <name> [more names] 
exit 1 if ($#ARGV < 0); 
foreach (@ARGV) { print "Hello, $_\n" } 
exit 0; 

Другая часть ...

#!/opt/local/bin/perl -w 
## world.pl name [more names ...] 
open (FP, "./hello.pl @ARGV |") or die "$0: Cannot open pipe: $!\n"; 
while (<FP>) { print } 
close FP; 
my $status = 0; # Want this to be exit status of the process "hello.pl" 
exit $status; 

Answer 1

my $status = $?; 

Но вы не сможете следить с

exit $status; 

, потому что число будет слишком большим. Я видел, как люди делают следующее, но это означает успех для некоторых неудач.

exit($status >> 8); # XXX BAD! 

Я рекомендую, что bash делает:

exit(($status & 0x7F) ? ($status & 0x7F) | 0x80 : $status >> 8); 

---

Кстати, вы не правильно построить команду оболочки.

$ world.pl 'von Perl' meow 
Hello, von 
Hello, Perl 
Hello, meow 

Либо использовать Струнный :: ShellQuote или использовать несколько формы ARG из open |-.

open (FP, '|-', './hello.pl', @ARGV) 

С исправлением:

$ world.pl 'von Perl' Meow 
Hello, von Perl 
Hello, Meow