Perl Basisschlüssel löschen durch Hash Referenz

Question

my %myHash = (
    key1 => { 
     test1 => 1, 
     test2 => 2, 
    }, 
    key2 => { 
     test1 => 3, 
     test2 => 4, 
    }, 
); 

my $myRef = $myHash{ "key". ((~~keys %myHash) + 1) } //= { 
    test1 => 5, 
    test2 => 6, 
};  

Humor mich und nehme an, das Obige ist tatsächlich praktisch. Wie kann ich diesen neu erstellten Schlüssel durch die Referenz löschen?

delete $myRef; 

funktioniert offensichtlich nicht

EDIT: So von zostay ich folgendes haben ...

sub deleteRef { 
    my ($hash_var, $hash_ref) = @_; 

    for (keys %$hash_var) { 
     delete $hash_var->{$_} if ($hash_var->{$_} == $hash_ref); 
    } 
} 

Verbrauch:

deleteRef(\%myHash, $myRef); 

Wie ist das? Immer noch nicht zu empfehlen? Adresse

for my $key (keys %myHash) { 
    if ($myHash{$key} == $myRef) { 
     delete $myHash{$key}; 
    } 
} 

Sie == prüfen können, für Referenzen mit der gleichen Speicher:

Answer 1

jedes Vorkommen von $myRef in %myHash löscht Dies wird.

Ich denke, das ist eine schlechte Idee, aber ich hole dich.

Answer 2

Wie es aussieht, müssen Sie durch die Hash-Suche nach diesem Verweis durchlaufen. Oder Sie können den Schlüssel zur zukünftigen Verwendung in die Datenstruktur einfügen.

Answer 3

Wie geht es Ihnen tatsächlich Generierung des neuen Hash-Schlüssels?

Es ist eine schlechte Form, linear durch alle Hash-Werte zu suchen, um eine bestimmte Referenz zu finden und umgeht den einfachen schnellen Zugriff, den Hashes bieten soll.

Es würde viel mehr Sinn machen das Äquivalent von

my $myKey = "key". ((~~keys %myHash) + 1); 
$myHash{$myKey} //= { 
    test1 => 5, 
    test2 => 6, 
}; 

zu schreiben, nach dem Sie gerade

tun konnte

delete $myHash{$myKey}; 

aber alles hängt davon ab, was Sie meinen wirklich von "key". ((~~keys %myHash) + 1)