perl - system exit value 구하기

exit value 구하는 방법

system 함수를 실행하면 결과 정보가 $? 에 담겨진다. 8bit 를 버리고 나면

$? >> 8;

예제

exit5.pl 코드를 작성하고 5 로 종료 하는 코드를 작성한다.

exit 5;

testexit.pl 코드를 작성한다.

system("perl", "exit5.pl");
printf "%d\n", $? >> 8;

코드를 실행해 보면 exit 5 로 넘겨 받은 값이 출력되는 것을 볼 수 있다.

$ perl testexit.pl
5

perldoc 의 system 에 있는 예제를 참고 하도록 한다.

if ($? == -1) {
    print "failed to execute: $!\n";
} elsif ($? & 127) {
    printf "child died with signal %d, %s coredump\n",
        ($? & 127),  ($? & 128) ? 'with' : 'without';
} else {
    printf "child exited with value %d\n", $? >> 8;
}

참고

• system - perldoc