> あやしいわーるどはスーパーハカー揃いだと聞いたので質問します。
> Perlで、あるサブルーチンを作りました。
> 成功すると1、失敗すると0を返すようなサブルーチンです。
> ですが内部の動作はわりと複雑なので、どうして成功または
> 失敗したのかという理由も返したいのです。
> 使い方的には
>     Function() || die "失敗の理由"; としたいです。
>     open() || die "Can't Open Stream :$!"; と同じような感じで使いたい。
> どうすれば簡単か教えてください。ペコリ。

グローバル変数を使うか関数にエラーメッセージを
格納する変数へのリファレンスを渡す。
実際特殊変数の$!はグローバル変数だし。

参考：2000/08/14(月)04時54分24秒