Foro - Perl en Español

Hola,

Tengo un fichero por una parte, que contiene líneas así:



Y estaba intentando imprimir por pantalla todas las líneas, y si la línea está repetida imprimirla, pero solo una vez.

El código que tengo me funciona, hasta las últimas líneas, que sí que me imprime línea6 dos veces.
¿Sabéis por qué puede ser?

Pues porque las dos últimas líneas son distintas... hay un carácter de diferencia.

¿Lo ves?

Cambia la última línea del programa por esta, para poder verlo:

explorer escribiste:Pues porque las dos últimas líneas son distintas... hay un carácter de diferencia.

¿Lo ves?

Touché . Ni me había dado cuenta.
He intentado hacer un chomp() a todas las líneas, modificando estas líneas, quedando así:

Pero la salida se convierte en esto, no lo entiendo:
Para solucionar esto, solo se me ocurren "charcuterias" que afean el código un montón
¿Se podría arreglar esto de forma elegante sin tener que modificar mucho el código? Con lo bien que estaba quedando... >.<

Es que no es lo mismo

print @unique;

que

print "@unique";

En el primer caso, se sacan los valores del array @unique todos juntos, porque le estamos pidiendo que saque los valores de @unique, tal cual. En cambio, en el segundo caso, con las comillas dobles estamos solicitando una conversión a cadenas de caracteres de un array que, por defecto, es sacar todos los elementos de un array, unidos por el valor contenido en la variable especial $". En otras palabras,

print "@unique";

es lo mismo que

print join($", @unique);

Por defecto, $" es un espacio en blanco.

Todo depende de lo que quieras hacer y de cómo quieras mostrarlo. Fíjate en la última propuesta que te he puesto en el mensaje mío anterior, con la solución del join().

Otra forma de hacerlo, más limpia:

Perfecto, con lo que me has explicado ya he conseguido hacerlo funcionar.
¡gracias!