Antwort.

In Perl sind Hashes (assoziative Arrays) ein mächtiges Werkzeug zur Speicherung von Schlüssel-Wert-Paaren. Allerdings erfordert die Arbeit mit ihnen Aufmerksamkeit, insbesondere beim gleichzeitigen Durchlaufen und Ändern der Struktur. Übersehene Details führen hier zu Fehlern, die schwer zu diagnostizieren sind.

Geschichte der Frage

Assoziative Arrays wurden bereits in frühen Versionen von Perl (Perl 1/2) eingeführt, was sie zu einer der ersten Sprachen mit vollständiger Unterstützung von Hashes auf Kernniveau machte. Im Laufe der Zeit entstanden zusätzliche Möglichkeiten: Iteration mit each, Entfernen (delete), massenhafte Transformation (map, grep) und der Umgang mit Struktur-/Inhaltsänderungen während der Durchquerung.

Problem

Das Durchlaufen eines Hashs und gleichzeitige Änderungen seines Inhalts, insbesondere das Entfernen von Elementen, kann zu unerwarteten Effekten führen: zum Überspringen von Elementen, zur mehrfachen Durchquerung derselben Schlüssel oder sogar zu endlosen Schleifen. Darüber hinaus ist die Reihenfolge der Schlüssel nicht garantiert und kann zwischen verschiedenen Perl-Versionen variieren.

Lösung

Ändern Sie den Hash während der Iteration nicht, wenn Sie each verwenden, da der interne Zeiger durcheinander gerät.
Zum sicheren Entfernen von Elementen: Zuerst eine Liste der Schlüssel durch keys sammeln, dann in einer separaten Schleife durch diese Liste gehen und entfernen.
Verwenden Sie while (my ($k, $v) = each %h), um normal zu iterieren, aber kombinieren Sie es nicht mit delete innerhalb der Schleife, wenn Sie unerwartete Ergebnisse vermeiden möchten.

Beispiel für korrektes Entfernen von Elementen:

my %h = (a=>1, b=>2, c=>3);
for my $k (keys %h) {
    delete $h{$k} if $h{$k} == 2;
}

Beispiel für den falschen Ansatz:

while (my ($k, $v) = each %h) {
    delete $h{$k}; # Das kann zum Überspringen von Schlüsseln führen
}

Wesentliche Merkmale:

Die Reihenfolge der Schlüssel ist nicht festgelegt und kann sich ändern.
Iteration mit each ist empfindlich gegenüber Strukturänderungen während der Operation.
Bei massiven Löschungen verwenden Sie die Durchquerung einer Kopie der Schlüsselliste.

Fragen mit einem Fang.

Kann man sicher Elemente aus einem Hash innerhalb einer while-Schleife (each %h) entfernen?

Nein, das kann dazu führen, dass Teile des Hashs aufgrund des Zurücksetzens des internen Iterationszeigers übersprungen werden.

Was passiert mit der Reihenfolge der Schlüssel nach dem Entfernen von Elementen aus einem Hash?

Die Reihenfolge ist nicht garantiert und kann sich ändern. Zudem kann die Reihenfolge der Durchquerung zwischen Programmen mit identischem Perl unterschiedlich sein.

Kann man den Wert eines Hash-Elements innerhalb der Iteration durch each ändern?

Ja, die Änderung des Wertes (aber nicht der Struktur) ist sicher.

Beispiel:

while (my ($k, $v) = each %h) {
    $h{$k} = $v + 10;
}

Typische Fehler und Antipatterns

Entfernen von Elementen direkt während der each-Iteration.
Annahme über die Reihenfolge der Schlüsseliteration.
Modifikation der Schlüsselstruktur während der Durchquerung des Schlüssellistenarrays.

Praxisbeispiel

Negativer Fall

Verwendung des Entfernens von Elementen über each in einer Schleife:

my %h = (a=>1, b=>2, c=>3);
while (my ($k, $v) = each %h) {
    delete $h{$k} if $v == 1;
}

Vorteile:

Kompakt.
Keine zusätzlichen Arrays.

Nachteile:

Risiko des Überspringens von Elementen.
Unvorhersehbares Ergebnis.

Positiver Fall

Erstellung einer Schlüsselliste zum Löschen:

my %h = (a=>1, b=>2, c=>3);
for my $k (keys %h) {
    delete $h{$k} if $h{$k} == 1;
}