Foro - Perl en Español

Ya he modificado el código.

He puesto un last al final del bucle, para que lo termine en caso de haber encontrado una posición dentro del rango.

No, el primer last() es porque la posición a analizar queda fuera del rango (la posición es superior al $final). Y como sabemos que las posiciones están ordenadas numéricamente, las siguientes posiciones también estarán fuera del rango. Por eso, no merece la pena seguir buscando, y salimos inmediatamente.

En cambio, el segundo last() es porque ya hemos encontrado una posición (hemos hecho el say()), así que hemos terminado de encontrar una posición dentro del rango, por lo que no es necesario seguir buscando. Y salimos.