Alternativa al "último" en hacer bucles

Question

De acuerdo con el manual perl para last (http://perldoc.perl.org/functions/last.html), last no se puede utilizar para salir de do {} bucles, pero no menciona una alternativa. El guión que estoy manteniendo tiene esta estructura:

do { 
    ... 
    if (...) 
    { 
     ... 
     last; 
    } 
} while (...); 

y estoy bastante seguro de que quiere ir hasta el final del bucle, pero en realidad es salir de la subrutina de corriente, por lo que necesita ya sea cambiar el last o refactorizar todo el ciclo si hay una forma mejor que alguien pueda recomendar.

Answer 1

do BLOCK while (EXPR) es divertido en el que hacer no es realmente una estructura de bucle. Entonces, el último, el siguiente y el rehacer no se deben usar allí. Deshágase de la última y ajuste la EXPR para evaluar falsa cuando se encuentre esa situación. Además, active strict, lo que debería darle al menos una advertencia aquí.

Answer 2

@ "http://perldoc.perl.org/functions/last.html": última no se puede utilizar para salir de un bloque que devuelve un valor tal como eval {}, sub {} o do {}, y no debe usarse para salir de una operación grep() o map().

lo tanto, utilizar un valor lógico en el 'while()' y configurarlo en el que tiene 'última' ...

Answer 3

Wrap el do "bucle" en un bloque al descubierto (que es un bucle):

{ 
    do { 
     ... 
     if (...) 
     { 
      ... 
      last; 
     } 
    } while (...); 
} 

Esto funciona para el final y rehacer, pero no al lado; para ese lugar el bloque desnudo dentro del bloque do:

do {{ 
    ... 
    if (...) 
    { 
     ... 
     next; 
    } 
    ... 
}} while (...); 

Answer 4

Nunca un fan de do/while loops en Perl. el do no es realmente un bucle por lo que last no saldrá de él. En nuestra antigua Pascal aturdimiento no se podía salir de un bucle en el medio porque que sería incorrecto según el sabio Niklaus "Una entrada/una salida" Wirth. Por lo tanto, tuvimos que crear una bandera de salida. En Perl se vería algo como esto:

my $endFlag = 0; 
do { 
    ... 
    if (...) 
    { 
     ... 
     $endFlag = 1; 
    } 
} while ((...) and (not $endFlag)); 

Ahora, puedes ver mientras Pascal nunca se prendió.

Answer 5

¿Por qué no utilizar un bucle while?

while (...) { 
    ... 
    if (...) { 
    last; 
    } 
} 

Puede que tenga que cambiar su lógica ligeramente para acomodar el hecho de que su prueba es al principio en vez del final de su ciclo, pero que debería ser trivial.

Por cierto, usted PUEDE salir de un bucle Pascal si está utilizando Delphi, y Delphi DID se encendió por un tiempo hasta que Microsoft se preparó y salió con los idiomas .net.