Perlについての質問箱 43箱目at TECH
Perlについての質問箱 43箱目 - 暇つぶし2ch369:デフォルトの名無しさん
10/05/16 22:25:07
>>366
エラー処理はfuncA()、funcB()の中で例外発生させて
全体をevalブロックでくくり、例外をキャッチして処理
エラー以外の分岐は適当に処理をブロックでくくり、last、redoなどでコントロール

eval {
 funcA();
 funcB();
 {
  funcC();
  if (fuga) { resultA(); last }
  resultB();
 }
};
if ($err = $@) {
 $err->A ? funcAErr() :
 $err->B ? funcBErr() :
 $err->C ? funcCErr() : Err();
}


次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch