Notice
Recent Posts
Recent Comments
준호씨의 블로그
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;
}
참고
반응형
'개발이야기' 카테고리의 다른 글
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