Gibt es einen Trick bei dem ein hash value seinen hash key kennt? - #197104 (Allgemeines zu Perl)

barney

2025-07-07 23:51

User since
2008-08-31
213 Artikel
BenutzerIn

Ja, mit einem Lookup auf dem Hash kann man die Frage lösen. Das ist auch am lesbarsten, weil man sich die do Blöcke spart. Die Blöcke hat man ja nur gebraucht um den Scope von $key zu begrenzen.

Code (perl): (dl )

use v5.24;
use warnings;

use Benchmark qw(cmpthese);

sub find_key {
    my ($hash, $current_sub) = @_;

    for my $key ( keys $hash->%* ) {
        return $key if $hash->{$key} == $current_sub;
    }

    return "not found";
}

my $subs;

cmpthese(
    2,
    $subs = {
        AAA => sub { say ''; say 'aaa'; say find_key($subs, __SUB__) },
        BBB => sub { say ''; say 'bbb'; say find_key($subs, __SUB__) },
    }
);

In der Praxis werde ich natürlich tunlichst all diese Tricks vermeiden und im Bedarfsfall den Schlüssel zweimal hinschreiben.