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.

> Como no puedo averiguar cuál es automáticamente, prefiero asignarle el primero que aparezca

¿Quizá usar el trozo más pequeño de los dos?

pvaldes escribiste:> Como no puedo averiguar cuál es automáticamente, prefiero asignarle el primero que aparezca

¿Quizá usar el trozo más pequeño de los dos?

Gracias pvaldes, ¿te refieres al ID que tenga el intervalo más pequeño? Sin tener todos los datos no puedo elegir entre uno u otro, y cualquier elección tiene el 50% de ser correcta con la información a mano, por eso prefiero no complicar el programa y que coja el primero que encuentre.

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

Explorer, esa solución es buena y parece que ahora no me mete esos duplicados. Gracias. Pero ¿por qué hay que incluir otro last si ya había uno anteriormente? ¿no tendría que hacer la misma función?

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.

Muchas gracias, explorer y pvaldes, por vuestra ayuda. El resultado es muy bueno.

Un saludo y hasta otra.

D.