Foro - Perl en Español

explorer escribiste:Bienvenido a los foros de Perl en Español.

El grep selecciona los elementos que coincidan con el patrón indicado.

Estás diciendo en tu programa que grep debe quedarse con los elementos que estén compuestos de 3 o más repeticiones: 111, 333333, 55555555555555, 222, etc., etc.

Esto suele ser un trabajo de un hash.
Mira en http://perldoc.perl.org/perlfaq4.html#H ... r-array%3f como se eliminan los duplicados.

• arrancamos el intérprete perl con unas cuantas opciones. La opción '-n' hace que se abra el archivo.txt y que perl lo lea línea a línea, y por cada línea, ejecutamos el código indicado por '-e'
• el programa hace lo siguiente: la línea del archivo está almacenada en la variable por defecto $_
• se evalúa $la_he_visto_antes{$_}++, es decir, incrementamos en uno el valor correspondiente a la clave $_ del hash %la_he_visto_antes, y se devuelve el valor que tenía antes del incremento. Esto tiene el efecto de ir almacenando en el hash todas las líneas, y por cada una, se devuelve un '0' la primera vez que aparece una línea distinta de las demás (digamos que el hash va "recordando" las líneas del archivo)
• entonces, si es la primera vez que aparece una determinada línea, devuelve un '0', que por efecto del not se convierte en un valor positivo, con lo que dispara el if(), y por lo tanto ejecuta el print(), que al no tener argumentos, por defecto saca en pantalla el valor del $_, que es justo la última línea leída del archivo
• las siguientes veces que aparece la misma línea, la expresión $la_he_visto_antes{$_} ya devuelve un valor positivo, así que no se dispara el print()