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...

- Funcionesde Perl
- Variables y estructura de los datos en Perl
- Crear un contador de accesos a un sitio web en Perl
- Crear un servidor de MP3 con Perl
- Desplegar Fecha en Perl

- Versión imprimible de este documento

- Enviar por e-mail este documento