Doppelte Einträge in Perl Arrays

Perl (Link zur Homebase) ist eine Skriptsprache die gerne auf Linuxsystemen verwendet wird. Perl kann (fast) alles, und kann mit z.B. CPAN leicht verwaltet werden. Perl ist cool, Perl ist aber nicht ganz leicht zu lesen. Wenn man aber etwas länger damit programmiert, erkennt man die tief verborgene Schönheit der Quellcodes. Zum Beispiel diese Methode die ich im Internet per Google gefunden habe
[highlight=Perl]#entfernt doppelte Einträge in einem Array
sub del_double{
  my %all=();
  @all{@_}=1;
  return (keys %all);
}[/highlight]
Nett, oder?
Leichter zu lesen wäre Ruby, auch das macht viel Spass. Aber das ist wieder eine andere Geschichte.

Scroll to Top