Perlでエラーチェックをきれいに処理できますか？

Question

エラーチェックを管理するPerlルーチンがあります。前の成功に基づいて、約10の異なるチェックがあり、いくつかはネストされています。これらは通常、私がcroak/dieにする必要がある例外的なケースではありません。また、エラーが発生すると、残りのチェックを実行する必要はありません。

しかし、私は次の恐ろしいハックに類似したものを使用する場合を除き、この問題を解決するためにきちんとした方法を考えるように見えることはできません。

sub lots_of_checks 
{ 

if(failcond) 
{ 
    goto failstate: 
} 
elsif(failcond2) 
{ 
    goto failstate; 
} 

#This continues on and on until... 

return 1; #O happy day! 

failstate: 

return 0; #Dead... 
} 

私が行うことができることを好むだろう何だろうそのような何か：

do 
{ 
if(failcond) 
{ 
    last; 
} 
#... 
}; 

Answer 1

空のreturn文は0を返すよりもPerlのサブからfalseを返す良い方法です。後者の値は実際にはリストコンテキストでtrueになります：あなたの例を考えると

sub lots_of_checks { 
    return if fail_condition_1; 
    return if fail_condition_2; 
    # ... 
    return 1; 
} 

Answer 2

おそらく、あなたはperl5の中で例外処理に関する以下の記事を見てしたい：

• perl.com: Object Oriented Exception Handling in Perl
• perlfoundation.com: Exception Handling in Perl

Answer 3

、私はこのように書くと思います：

sub lots_of_checks { 
    local $_ = shift; # You can use 'my' here in 5.10+ 

    return if /condition1/; 
    return if /condition2/; 
    # etc. 

    return 1; 
} 

裸returnの代わりreturn 0に注意してください。これは、文脈を尊重しているため、通常はより良いです。スカラーコンテキストではundef、リストコンテキストでは()（空のリスト）となります。

シングル出口ポイント（少しPerlishではありません）を保持したい場合は、gotoに頼らずに実行できます。 lastのドキュメントでは、

...というように、ブロック自体は、一度実行されるループと意味的に同じです。 したがって、「最後」を使用して、そのようなブロックから早期に終了することができます。

sub lots_of_checks { 
    local $_ = shift; 
    my $all_clear; 

    { 
     last if /condition1/; 
     last if /condition2/; 
     # ... 
     $all_clear = 1; # only set if all checks pass 
    } 

    return unless $all_clear; 
    return 1; 
} 

Answer 4

あなたは絶対にあなたが好む何を行うことができます。

Check: { 
    last Check 
     if failcond1; 
    last Check 
     if failcond2; 
    success(); 
} 

Answer 5

あなたは/単一構造をあなたのシングルを残しておきたい場合は、あなたが得るために少し他の提案を変更することができます。

IMO

sub lots_of_checks 
{ 
    goto failstate if failcond1; 

    goto failstate if failcond2; 

    # This continues on and on until... 

    return 1; # O happy day! 

    failstate: 

    # Any clean up code here. 

    return; # Dead... 
} 

、EXPR if文修飾子フォーム「リターンのPerlの使用"ガード句はCよりも読みやすくなります。最初にラインを見ると、ガード句があることがわかります。この機能はしばしば侮辱されていますが、この場合はかなり好きです。

gotoをステートメント修飾子とともに使用すると、単一の終了コードスタイルが維持されますが、明瞭さが維持され、クラッタが軽減されます。私は、このフォームを、ルーチンの検証に失敗した後に複雑なクリーンアップをしたときに使用しました。

Answer 6

なぜ例外は使用しませんか？コードの通常の流れが守られていない場合は例外です。 "return"や "goto"を使うのは本当に同じことです。ちょうど "あなたが望むものではありません"。

（本当に欲しいのは、 "return"、 "goto"、 "last"、 "throw"のすべての特殊なケースです。Perlには完全な継続はありませんが、 http://metacpan.org/pod/Continuation::Escape）

あなたのコードの例では、あなたが書く：あなたはトリッキーなことと無視する場合

eval { 
    if(failcond){ 
     die 'failcond'; 
    } 
} 

：

do 
{ 
if(failcond) 
{ 
    last; 
} 
#... 
}; 

をこれはおそらく同じですその他の例外：

my $magic = []; 
eval { 
    if(failcond){ 
     die $magic; 
    } 
} 
if ($@ != $magic) { 
    die; # rethrow 
} 

また、上記のContinuation :: Escapeモジュールを使用することもできます。しかし、 例外を無視する理由はありません。この方法でそれらを使用することは完全に受け入れられる です。