use strict; use Error qw(:try); try { print 'いくぞー', "\n"; die 'うわ〜　水で顔がぐしゃぐしゃだ.', "\n" if int rand(2); }otherwise{ my $e = shift; print $e; print 'あたらしい顔よ〜', "\n"; print '元気100倍', "\n"; }; print 'アンパー○チ', "\n"; 実行結果1: いくぞー アンパー○チ 実行結果2: いくぞー うわ〜　水で顔がぐしゃぐしゃだ. あたらしい顔よ〜 元気100倍 アンパー○チ

Java　同じものをthrowした場合 public class Hoge { public static void main(String[] args) { try { giveUp(); System.out.println("main() : 例外起こらないでー"); } catch (Exception e) { System.out.println("main() : 例外処理った"); e.printStackTrace(); } } private static void badMethod() throws Exception { throw new Exception(); } private static void giveUp() throws Exception { try{ badMethod(); } catch (Exception e) { System.

第64回 Error.pm でちょっとハマったので - bingo_nakanishiの他言語出身者のためのPerl入門 ここで、dieされたものは、Error::Simpleにblessされたハッシュであることを述べた。 print $e ハッシュであるにもかかわらず、次のように書ける。 use strict; use Error qw(:try); use Data::Dumper; try { die 'aaaa'; }otherwise{ my $e = shift; print Dumper $e; print $e; }; 結果： $VAR1 = bless( { '-file' => 'd.pl', '-text' => 'aaaa', '-line' => '7', '-package' => 'Error' }, 'Error::Simple' ); aaaa at d.

それでは、try{ } catch { } の構造を使うと、 どのようにプログラムが流れていくのか見てみよう。 public class Hoge { public static void main(String[] args) { try { badMethod(); System.out.println("例外起こらないでー"); } catch (Exception e) { System.out.println("例外処理った"); e.printStackTrace(); } System.out.println("ここまでこれるかな"); } private static void badMethod() throws Exception { throw new Exception(); } }結果： 例外処理った java.lang.Exception at Hoge.bad

Javaの例外処理はかなりきっちりめにできており、 例外が起こった場合の処理を書いておかないとコンパイラさえ通らない。 なお、大きくわけて例外は、処理しなければならない例外と、処理しなくてもいい例外の２つに別けることができる。 処理しなければならない例外を処理しなければコンパイラが通らないという訳である。 今回は、処理しなければならない例外に関しての話を進めていく。 （私の確認もかねている） 例外を起こすメソッド 今、badMethodという内部で例外を起こすメソッドを考える。 これは、 private static void badMethod() throws Exception { throw new Exception(); }このように書ける。 これをmainメソッドから呼んでいるのが次の通り public class Hoge { public static void main

予期しないこと　それがError 今、Errorというものを考える。 今、ここでアルファベットでErrorと表したものは、 「なにか予期しないこと」 と言った意味合いで使うことにする。 このErrorにはどんな種類のものがあるか、考えてみることにしよう。 システムエラー DBにアクセスしようとしたが、ネットワークが落ちて繋がらないかもしれないし、 SQLを発行しようとしたが、SQL文が文法エラーなので、結果を取得できないかもしれない。 このような、エラーは、システム（コンピュータ）との関係がきわめて強いので、 システムエラーと呼ぶ事にする。 業務エラー 掲示板の記事が保存されるべき部分に、誤って日付が入っていた。 Bという処理は、Aという処理の後に実行されないといけないのに、Bという処理を実行しようとしたときAという処理はまだ実行中であった。 こういったことは、仕様（業務）に関係することな

第45回 Java的な例外処理 - bingo_nakanishiの他言語出身者のためのPerl入門 で、Error.pmを紹介しました。 Error.pmを使ったソース で、今回、 次のようなコードを書いてみました。 use Error qw(:try); try { die 'OH'; }otherwise{ my $e = shift; print $e; }; これを実行すると、 OH at bingo.pl line 4.となって行番号とファイル名まで表示されてしまいます。 しかし、ここでは、dieに与えた「OH」だけが欲しいとします。 $eには何が入ったか？ $eから at以下を削除すればいいんじゃないの？　正規表現かなにかで？　と思いますが、それはなんか苦しい。 ここで、$eは何者なのかDumperで覗いてみましょう。 use Error qw(:try); use Data