Как повторить цикл в Perl

Question

Я делаю Eval, чтобы проверить, если сервер выходит из строя

eval{ 
     foreach(){ 
     Processing 10,000 UPCS in API one by one 
     } 
     }; 
    if($@){ 
     continue; 
     sleep(1200); 
    } 

Приведенный выше код работает нормально, но проблема, если сервер выходит из строя он пропускает текущий БЗК (Loop), и он обрабатывает следующий UPC (Loop).

Вместо того, чтобы пропускать UPC (Loop), я должен повторить один и тот же upc, если сервер идет вниз?

Answer 1

Перемещение Eval в петлю и использовать журнальную:

foreach ... { 
    eval { 
    }; 
    if ($@) { 
     sleep 1200; 
     redo; 
    } 
} 

, хотя я не уверен, что ваш continue должен был делать; Я сомневаюсь, что он сделал то, что вы ожидали.