Hash Schlüssel zu Wert finden (gelöst) (Allgemeines zu Perl)

[thread]16307[/thread]

Hash Schlüssel zu Wert finden [gelöst]

Tags: perl5 hash Ähnliche Threads

Leser: 33

Articles: hide open all | hide show old branches

+14 replies
falke13

2011-05-17 09:02
User since
2011-05-17
3 Artikel
BenutzerIn
Hallo,

wie kann ich in Perl den key des Hashes abfragen.

z.B.
Code (perl): (dl )

1 2 3 4 5

my %landab = ( "austria" => "a", "belgium" => "b", "switzerland" => "ch", "germany" => "d");
Ich will mir z.B mit dem value a und den Hashnamen landab austria anzeigen.

modedit Editiert von GwenDragon: Titel ergänzt; Code-Tags
Last edited: 2011-05-17 09:24:05 +0200 (CEST)
- renee
  
  2011-05-17 09:15
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Da es mehrere Schlüssel mit dem gleichen Wert geben kann, musst Du es so machen:
  
  Code (perl): (dl )
  
  1 2
  
  my $wanted = 'a'; my ($country) = grep{ $landab{$_} eq $wanted }keys %landab
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- Taulmarill
  
  2011-05-17 09:16
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Dafür musst du den Hash "von Hand" durchsuchen:
  
  Code (perl): (dl )
  
  1 2 3
  
  while ( my( $key, $val ) = each %landab ) { print "$key\n" if $val eq 'a'; }
  
  Wenn du mehrere Hashkeys nachschauen musst, kann es sich auch lohnen, einen zweiten Hash aufzubauen. Folgende Version funktioniert aber nur, wenn es jeden Wert nur ein mal gibt:
  
  Code (perl): (dl )
  
  1 2 3
  
  my %badnal = reverse %landab; print $badnal{a} . "\n";
  
  Last edited: 2011-05-17 09:19:43 +0200 (CEST)
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- +11 replies
- payx
  
  2011-05-17 09:32
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo falke13,
  
  wenn Du sicher bist, dass jeder value nur genau einmal vorkommt, kannst du auch einfach den Hash umdrehen:
  
  Code (perl): (dl )
  
  my %abland = reverse %landab;
  
  HTH
  Grüße
  payx
  
  EDIT: PS: Sorry, habe übersehen, dass diese Lösung schon bei Taulmarill steht.
  
  EDIT2: Oder ohne zweiten Hash:
  
  Code (perl): (dl )
  
  my $aland = {reverse %landab}->{a};
  
  Last edited: 2011-05-17 09:37:30 +0200 (CEST)
  - +10 replies
  - Sven_123
    
    2011-05-19 13:52
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    "Ohne zweiten Hash" fördert nicht grad das Verständnis von dem Ausdruck... ;)
    - +9 replies
    - Taulmarill
      
      2011-05-19 13:59
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Dann will ich mal erklären.... wir haben also einen Hash:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      my %landab = ( "austria" => "a", "belgium" => "b", "switzerland" => "ch", "germany" => "d" );
      
      Der Hash gibt im Listenkontext eine Liste aller seiner Schlüssel-Wert-Paare aus:
      
      Code: (dl )
      
      switzerland, ch, austria, a, germany, d, belgium, b
      
      Die funktion reverse kehrt diese Liste jetzt um:
      
      Code: (dl )
      
      b, belgium, d, germany, a, austria, ch, switzerland
      
      Durch die geschweiften Klammern wird aus der Liste jetzt eine Referenz auf einen anonymen Hash.
      
      Der Pfeiloperator -> dereferenziert das ganze jetzt, um nicht die Referenz sondern den dahinter liegenden Hash anzusprechen.
      
      Das {a} spricht jetzt den Wert hinter dem Schlüssel "a" an und gibt diesen Zurück.
      
      Ich hoffe das war verständlich.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - +8 replies
      - Sven_123
        
        2011-05-19 14:24
        
        User since
        2010-06-01
        120 Artikel
        BenutzerIn
        
        Haha, Danke, aber das war falsch interpretiert - ich wollte eigentlich nur darauf hinweisen, dass man eben doch einen zweiten Hash (den anonymen) erzeugt. :)
        
        +3 replies
        
        falke13
        
        2011-05-23 14:35
        
        User since
        2011-05-17
        3 Artikel
        BenutzerIn
        
        Vielen Dank an die Runde hat super funktioniert.
        
        +2 replies
        
        pq
        
        2011-05-23 15:06
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        dann markiere doch bitte den thread als gelöst.
        und als tip für die zukunft: nimm nicht einfach den am weitesten unten stehenden beitrag, um sich bei der ganzen runde zu bedanken. in dem fall antworte auf deinen original-artikel.
        die baumstruktur spiegelt sich verästelnde diskussionen wieder, und somit hast du auf eine diskussion geantwortet, die sich um eine nachfrage an payx dreht.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        pq
        
        2011-06-06 23:21
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2011-05-23T13:06:34 pq
        dann markiere doch bitte den thread als gelöst.
        
        habe ich jetzt gemacht
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +4 replies
        
        payx
        
        2011-05-23 15:17
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Stimmt natürlich prinzipiell.
        
        Aber Frage: Wird denn wirklich durch dieses Konstrukt
        
        Code (perl): (dl )
        
        my $aland = {reverse %landab}->{a};
        
        im Arbeitsspeicher der vollständige %landab-Hash (eben in umgekehrter Anordnung) redupliziert?
        
        Es wäre ja durchaus denkbar, dass der Interpreter in diesem Fall eine effizientere Methode kennt, um den einen gesuchten Wert zu ermitteln (v.a. wenn der Hash sehr groß ist).
        
        +3 replies
        
        Taulmarill
        
        2011-05-23 15:57
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Es sieht so aus, als ob der Hash komplett angelegt wird. Nach meinen Benchmarks ist die Version mit dem dediziert angelegten Hash sogar 3% schneller:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        use Benchmark qw/cmpthese/; my %landab = ( "austria" => "a", "belgium" => "b", "switzerland" => "ch", "germany" => "d" ); cmpthese( 0, { hash => sub { my %badnal = reverse %landab; my $land = $badnal{a}; }, anon => sub { my $land = {reverse %landab}->{a}; }, });
        
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        +2 replies
        
        payx
        
        2011-05-23 18:31
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo Taulmarill,
        
        wirklich nur aus Neugier: Mit einem sehr großen Hash dreht sich der Effekt um.
        
        Wenn ich in Zeile 9 Deines Scripts einfüge:
        
        Code (perl): (dl )
        
        $landab{'austria'.$_} = 'a'.$_ for (1..1e5);
        
        , dann erhalte ich z.B.:
        
        Code: (dl )
        
        1 2 3
        
        Rate hash anon hash 3.17/s -- -10% anon 3.51/s 11% --
        
        Bei einem zweiten, manuellen Benchmark beobachte ich den Speicherverbrauch nach Erzeugung des Hashes, dann nach Ermittlung des {a}-Wertes.
        
        Hier gewinnt ebenfalls regelmäßig der anonyme Hash, allerdings ist der Unterschied auch hier nicht sehr groß; der anonyme Hash wird offenbar in voller Größe erzeugt.
        
        Hier der Code ab Zeile 9 (d.h. nach der obigen Zeile):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        print "RAM-Verbrauch des Perl-Prozesses erstmals ermitteln, [Enter]\n"; <>; #my %abland = reverse %landab; #my $aland = $abland{a}; my $aland = {reverse %landab}->{a}; print "RAM-Verbrauch des Perl-Prozesses zum zweiten Mal ermitteln, [Enter]\n"; <>;
        
        So wird anon getestet, mit Zeile 3 und 4 (und 5 auskommentiert) hash.
        
        Ergebnis z.B.:
        
        Code: (dl )
        
        1 2
        
        hash 16,4 MB => 34,1 MB anon 16,4 MB => 33,6 MB
        
        Mein Fazit: TIMTOWTDI. In der Regel dürfte es ziemlich egal sein, wie man hier verfährt.
        
        Grüße
        payx
        
        Taulmarill
        
        2011-05-24 12:02
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Danke für die ergänzenden Messungen.
        
        2011-05-23T16:31:08 payx
        Mein Fazit: TIMTOWTDI. In der Regel dürfte es ziemlich egal sein, wie man hier verfährt.
        
        Sehe ich genau so. Es mach für die eigentliche Praxis auch keinen Unterschied, da der Anteil solcher Sachen an der gesamten Laufzeit eines Programms normalerweise verschwindend gering ist. Finde es nur hin und wieder ganz interessant sich so was auch mal im Detail anzuschauen.
        Last edited: 2011-05-24 12:04:23 +0200 (CEST)
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

View all threads created 2011-05-17 09:02.