TSperl 発言

極悪です。

また、ちょっと悩んだので報告（独り言）。

スクリプトがなぜかエラーメッセージもなしに途中でストンと終了する
ので、おかしいな、exitなんて使ってないのに、と思いつつ調べたとこ
ろ、use bigint している場合、生の数値だけを引数にして die を呼ぶ
とエラーメッセージが表示されないですね。

D:$ perl -Mbigint -e"die '123' if 1"
123 at -e line 1.

D:$ perl -Mbigint -e"die 123 if 1"
123
D:$ perl -e"die 123 if 1"
123 at -e line 1.

D:$

横着して die $num if $num < 0; ってな感じで書いてたので、最初は
スクリプトのどこで終了しているのかはもちろん、die していることす
ら分かりませんでした。
-- 
安田 敏博