は2

Question

が、それはもはや利用可能です

Answer 1

としてすぐに削除する必要がすぐに削除されるべき呼び出しの第二セットはevalではないためにも動作しないこと。

for (my $num_tries = 3; ;) { 
    last if eval { 
     my $stuff1 = function1(); 
     my $stuff2 = function2(); 
     function3(); 
     return 1; # No exception. 
    }; 

    --$num_tries 
     or die($@); 

    chomp(my $e = $@); 
    warn("$e Retrying..."); 
} 

function4(); 

---

以上がevalにfunction3();を移動。あなたはそれが例外をスローすることを可能にしたい（または多分それは本当にreturn、last、などだ）場合は、代わりに次を使用することができます。

my $num_tries = 3; 
while (1) 
    last if eval { 
     my $stuff1 = function1(); 
     my $stuff2 = function2(); 
     return 1; # No exception. 
    } || !--$num_tries; 

    chomp(my $e = $@); 
    warn("$e Retrying..."); 
} 

if ($num_tries) { 
    function3(); 
} else { 
    warn($@); 
} 

function4(); 

これは再び少し複雑になって、それでは、サブを使わせています！あなたの答えのための

if (non_fatal_retry { 
    my $stuff1 = function1(); 
    my $stuff2 = function2(); 
}, 3) { 
    function3(); 
} 

function4();