준호씨의 블로그

perl - system exit value 구하기 본문

개발이야기

perl - system exit value 구하기

준호씨 2018. 4. 24. 23:35
반응형

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;
}

참고

반응형

'개발이야기' 카테고리의 다른 글

mysql - mysqldump exit code  (0) 2018.04.24
perl - array 초기화 하기. clear array  (0) 2018.04.24
perl - 파일 삭제. unlink  (0) 2018.04.24
perl - public ip 알아내기  (0) 2018.04.24
jquery - get param 만들기  (0) 2018.04.24
Comments