なぜPerlのsystem（）の結果がスクリプトの終了コードではないのですか？

Question

Iは、次のPerlスクリプト（test.pl）を有する：Pythonの実行から終了コード（test.py）キャプチャしようとしている

my $exit_code = system('./test.py'); 
print $exit_code."\n"; 

：

#!/bin/env python 
import sys 
sys.exit(2) 

直接実行Pythonの実行に戻り2を、その

> ./test.py 
> echo $? 
2 

しかし、実行中のPerlは別のものを返します：

> perl test.pl 
512 

なぜ、PerlはPythonとは異なる終了コードを取得したのですか？

Answer 1

子供はexitに電話していない可能性もあります。そのため、systemの戻り値（別名$?）は、exitパラメータよりも多くの情報をパックします。

if ($? == -1 ) { die "Can't launch child: $!\n"; } 
elsif ($? & 0x7F) { die "Child killed by signal ".($? & 0x7F)."\n"; } 
elsif ($? >> 8 ) { die "Child exited with error ".($? >> 8)."\n"; } 
else    { print "Child executed successfully\n"; } 

これはdocumentedです。

Answer 2

The documentationはと表示されます。実際の終了値を取得するには、右に8シフトしてください。