> > あやしいわーるどはスーパーハカー揃いだと聞いたので質問します。 > > Perlで、あるサブルーチンを作りました。 > > 成功すると1、失敗すると0を返すようなサブルーチンです。 > > ですが内部の動作はわりと複雑なので、どうして成功または > > 失敗したのかという理由も返したいのです。 > > 使い方的には > > Function() || die "失敗の理由"; としたいです。 > > open() || die "Can't Open Stream :$!"; と同じような感じで使いたい。 > > どうすれば簡単か教えてください。ペコリ。 > グローバル変数を使うか関数にエラーメッセージを > 格納する変数へのリファレンスを渡す。 > 実際特殊変数の$!はグローバル変数だし。 つか1や0以外の値を返せばいいだけのような -2なら○○エラー -3なら□□エラー 2なら○○で成功 とか 参考:2000/08/14(月)05時20分30秒