Perl Fining Bucles / Bloques de código según la entrada del usuario (! Die / SALIR)

Question

Solo tiene una pregunta general que surgió mientras estaba jugando con algunas cosas que codificé.Me preguntaba si hay alguna forma de terminar una parte específica del programa en función de los comentarios de los usuarios (me disculpo si estoy buscando una terminología aquí) aparte de morir ();Dado que eso termina todo el programa.

Aquí está el código:

if ($choice eq 'y'){
print "\nHit diagnostics: \n";
{
my $hitList=@hitList;
for (my $i=0; $i<$hitList; $i++){
    print $hitList[$i]."\n";
    #segmented listout of misses with interrupt 
    if(($i%4) eq 0){
        print "CONTINUE or Q to end\n";
        my $next=<>;
        chomp($next);
        if(lc($next) eq 'q'){
            **die "Killing request...\n";**
            }
        }
    }
}

, por lo que, básicamente, solo quiero que el usuario pueda terminar el módulo si el bucle si deciden en algún momento que en realidad no quieren ver la lista completa, pero aún así podrán continuar (hay un mensaje de extraccióndespués también) con el programa.

es la mejor manera de hacerlo solo para usar una variable como un 'interruptor' para determinar si la lista de golpes debe continuar o no?Solo preguntándome si hay una solución más aceptable / elegante.

Answer 1

for my $i (0..$hitList-1) {
   ...
   if (...) {
       last;
   }
   ...
}

last