안녕하세요? 현재 shell script 에서 .pl 파일을 불러서 실행시키는데
혹시 perl실행 후 리턴값을 shell에서 받을 수 있는 방법이 있나요??
지금은 perl에서 파일에 값을 쓰고 다시 shell에서 읽는 방법으로 사용중인데 혹시나 해서 질문올립니다.
perl에서 $! 를 쓰는 것처럼 bash 같은 본쉘에서는 $? 으로 확인 가능합니다.
$ cat something_bad.pl #!/uer/bin/env perl print "I can't stand this any more!\n"; exit 123; $ ./something_bad.pl >& /dev/null $ echo $? 123
$Myoungjin_JEON=@@=qw^rekcaH lreP rehtonA tsuJ^;$|++;{$i=$like=pop@@;unshift@@,$i;$~=18-length$i;print"\r[","~"x abs,(scalar reverse$i),"~"x($~-abs),"]"and select$good,$day,$mate,1/$~for 0..$~,-$~+1..-1;redo}
jg 님이 이미 말씀하셨듯이 $? 를 쓰시면 되고, 첨언하자면 이는 perl 뿐 아니라 쉘에서 파이썬이든 바이너리든 뭘 실행해도 마찬가지입니다~
좋은 하루 되세요!
음 $? 있었는데여 exit로 리턴값을 주면 되는군요~ 소중한 정보 감사드립니다. ㅎ
꺼꾸로 Perl에서 Shell의 결과를 이용하려면http://www.effectiveperlprogramming.com/blog/150 를 참고하세요.
perl에서 $! 를 쓰는
perl에서 $! 를 쓰는 것처럼 bash 같은 본쉘에서는 $? 으로 확인 가능합니다.
$Myoungjin_JEON=@@=qw^rekcaH lreP rehtonA tsuJ^;$|++;{$i=$like=pop@@;unshift@@,$i;$~=18-length$i;print"\r[","~"x abs,(scalar reverse$i),"~"x($~-abs),"]"and select$good,$day,$mate,1/$~for 0..$~,-$~+1..-1;redo}
jg 님이 이미
jg 님이 이미 말씀하셨듯이 $? 를 쓰시면 되고, 첨언하자면 이는 perl 뿐 아니라 쉘에서 파이썬이든 바이너리든 뭘 실행해도 마찬가지입니다~
좋은 하루 되세요!
앗 답변 감사합니다.
음 $? 있었는데여 exit로 리턴값을 주면 되는군요~
소중한 정보 감사드립니다. ㅎ
꺼꾸로 Perl에서 Shell의 결과를 이용하려면
꺼꾸로 Perl에서 Shell의 결과를 이용하려면
http://www.effectiveperlprogramming.com/blog/150
를 참고하세요.