Odebrani opakujicich se prvku z pole

[Ludek Finstrle]

> Ahoj lidi,
> 
> potreboval bych nejakej (jednduchej) zpusob jak odebrat z pole prvky, ktere
> se tam uz vyskytuji.
> Patrne nejlepsi zpusob je priradit je jako klice do hashe a pak ty stejny
> vypadnou, jenomze jak to udelat, kdyz potrebuju zachovat jejich poradi?

Coz takhle:

my %hash;
my $pom;
for (@pole) {
	$hash{sprintf('%10d',$pom)."$pole[$pom]"} = 1;
}

@pole = map { /^.{10}(.*)$/; $1 } sort keys %hash;

Melo by to fungovat.

Neni zac

Luf