Buscar en un arrary en Perl

Tenemos un array que tiene de contenido una lista de colores de los cuales algunos estan repetidos. Navegamos dentro del array en orden y comprobamos si alguno de los colores se repite. En caso de que alguno se repita (es decir, que ya lo tenemos dentro del array nuevo) no lo ingresamos otra vez por lo que tenemos un nuevo listado sin repeticiones.

#!/usr/bin/perl

@array = ('azul','rojo','verde','rojo','negro','azul','blanco');

foreach $line (@array) {
@found = grep(/$line/, @array);

if (!@found) {
push(@nuevo,$1);
}
}

foreach $line (@nuevo) {
print $line,"n";
}

Usuarios que han visto este tema también han visto...

- Aprende PERL eficazmente
- XML con Perl
- ¿Cómo enviar emails usando Perl y Sendmail?
- PostgreSQL con perl en el WEB

- Versión imprimible de este documento

- Enviar por e-mail este documento