У меня есть подпрограмма Perl, которая управляет проверкой ошибок. Существует около 10 различных проверок, и некоторые из них являются вложенными, основываясь на предыдущем успехе. Это, как правило, не исключительные случаи, когда мне нужно /croakdie, Кроме того, как только возникает ошибка,нет смысла проходить остальные проверки.

Тем не менее, я могуПохоже, что он придумал правильный способ решения этой проблемы, за исключением использования чего-то, аналогичного следующему ужасному хаку:

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;
 }
 #...
};