pktm+2007-11-11 22:03:53--

Und was soll ich als Schlüssel für den Hash nehmen? Meine Hashreferenz?

moritz+2007-11-11 23:21:31--

List::MoreUtils::uniq

betterworld+2007-11-11 23:10:10--

Was ich noch sagen wollte: Die Methode, alles in einen Hash zu werfen und damit Doppelte zu eliminieren, ist zwar oft sehr einfach zu schreiben, hat aber den Nebeneffekt, dass die Reihenfolge nicht erhalten bleibt.

1
2

my %seen;
@array = grep { ! $seen{$_}++ } @array;

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

Gast+2007-11-11 23:08:49--

pktm+2007-11-11 22:03:53--

Und was soll ich als Schlüssel für den Hash nehmen? Meine Hashreferenz?

Das kommt wohl ganz darauf an, wann genau Du zwei Hashes als "gleich" bzw "doppelt" bezeichnen willst. Willst Du nur exakt identische Hashes rauswerfen, die beide durch die gleiche Referenz angegeben sind?

1
2
3
4
5
6
7
8

my @array = (
    {a => 'b'},
    {1 => 2},
    {1 => 2},
);

my $uniques_aref = remove_dublicates(\@array);
# Sollte dann nur noch [{a => 'b'}, {1 => 2}] liefern.