Anschrift
Frauengasse 3-5
2500 Baden
02252 / 44403

Doppelte Einträge in Perl Arrays 23-12-2010

Hier eine weitere Routine, um doppelte Einträge in einem Perl Array zu löschen. Die ursprüngliche Reihenfolge bleibt dabei erhalten.
Wie man sieht, werden immer die Hashwerte der Einträge zum Vergleich herangezogen.
[highlight=perl]sub ClearArrayDoubles{
      my (@old) = @_;
      foreach my $item(@old){
      push(@array, $item);
  }
  my %hash;
  my @new = grep { !$hash{$_}++ } @array;
  return (@new);
}[/highlight]