Perl

perl上でexit codeを取得する際は要注意

More than 1 year has passed since last update.

system('date')とかでシステムコールした際のexit codeを取りたい時注意。

どうしたらいいの?

exit code取りたいだけならこうしておく。

my $code = system('date') >> 8

なんで?

unix的な戻り値を返すらしい。
左8bit: exit code
右8bit: コアダンプの有無とか停止時のシグナルとか

参照

perldoc
http://perldoc.jp/variable/%24%3F