Perl - comando sort

@a=(1,2,3,4,1,2,1,2,);

existe algun modificador de sort o algun otro comando que de como resultado esto

@a=comando(@); #@a=(1,2,3,4);

eliminando los valores que se repiten?
salu2 y grax

Como modificador de sort, no, pero se podría hacer algo...

<pre>
@a=(1,2,3,4,1,2,1,2);
map { $h{$_}=1 } @a;
@b = keys %h;
print @b;
</pre>

La pega es que pierdes el orden de los datos. Si los necesitas en el orden en que primero aparecen, hay que aplicar una técnica distinta:

<pre>
@a=(1,1,2,2,2,3,2,3,1,2,1,2,4,1,2,1,2);
foreach ( @a )
{
push @b,$_ unless $h{$_}++;
}
print @b;
</pre>

Lo que hacemos es recorrer todo el vector (foreach) y ver si no (unless) lo hemos visto antes. Si es así, lo guardamos en nuestra memoria (%h) y lo almacenamos en un vector aparte (push).

Si alguien no entiende lo que quiere decir la línea interior en el foreach, esta es la versión extendida:

<pre>
unless ( $h{$_} )
{
$h{$_}=1;
push @b,$_
}
</pre>