doppelte Werte aus einem @ ersetzen

[Matti Maekitalo]

use Mosche;

Ich danke dir für deine Mithilfe, leider hab ich das Problem das ich nicht der beste Progger bin, kannst du mir kleine Kommentare dazuschreiben, den mit copy/paste lerne ich nicht viel :-)

Probier es nächstes mal erst, selbst herauszubekommen, ...

my %hash;

Er deklariert einen Hash. Ein Hash ist ein assoziativer Array (jeder Schlüssel ist unique).

foreach (@doppelt) { $hash{$_}++; }

Mit einer Schleife nimmt er sich jedes Element deines Arrays vor (den er hier @doppelt genannt hat). Jedes Element fügt er in den Hash ein und erhöht den zugehörigen Wert um eins. Wenn in deinem Array ein Element nur einmal vorhanden ist, dann ist der zugehörige Wert in deinem Hash 1.

undef @doppelt;

Er leert den Array.

foreach (keys(%hash)) { push(@doppelt,$_) if ($hash{$_} == 1); }

Jetzt durchläuft er wieder den Hash. Für jeden Key des Hashes fügt er den Key in deinen Array @doppelt ein, solange das entsprechende Element nur einmal vorhanden ist (s.o.).

use Tschoe qw(Matti);