codeなにがし::Perlでエラートラップ

Perlでエラートラップ: l-w-i

ソースコードID：　554
登録日時：　2008/06/24 16:21
最終更新日時：　2008/06/26 01:46
アクセス数：　582
タグ：　 perl

0 users

説明

Perlでエラーを補足するのにみなさんはどのような方法をとっていますか?

例えばXML::RSSモジュールを使ってRSSのパースを行う場合、RSSにゴミ(制御コードとか)が入っていてwell-formedになっていないとモジュール内でエラーが発生して全体の処理が中断してしまいます。

これを防ぐために僕はエラーの起きそうな処理をevalブロック内に入れてエラー自体が全体の処理を止めないようにしています。

他に良い方法があればぜひ教えて下さい。

ソースコード

履歴表示コピペ用

use XML::RSS;

$rss = new XML::RSS;

eval
{
  $rss->parsefile("sample.xml");
};

warn $@ if $@;          # eval内のエラーは$@に格納される

#
# 以下、主処理
#

1：mikeda
2008/06/26 01:27

ラクダ本には自分でtry{}catch{}構文を書く方法が乗っていますが・・・
#####################
sub try(&$){
    my ($try, $catch) = @_;
    eval { &$try };
    if($@){
        local $_ = $@;
        &$catch;
    }
}
sub catch(&){ $_[0] }

try {
    die "ERR1";
}
catch {
    SWITCH:{
        /ERR1/ and do{ print "ERR1 !!\n"; last SWITCH;};
        /ERR2/ and do{ print "ERR2 !!\n"; last SWITCH;};
        print "unknown error: $_";
    }
}
###############################

構文がわかりにくいですねぇ。