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

[thread]21678[/thread]

Gibt es einen Trick bei dem ein hash value seinen hash key kennt?

Leser: 5

Articles: hide open all | hide show old branches

+5 replies
barney

Gestern 14:43
User since
2008-08-31
198 Artikel
BenutzerIn
Ich habe mir ein kleines Benchmark Skript gebastelt um ein paar Module zu vergleichen. Im Skript habe ich einen Hash der eine Sub einem String zuordnet. Z.Bsp:
Code: (dl )

1 2 3 4 5 6 7 8 9

{ ... 'Sisimai::Address' => sub { my $Field = Sisimai::Address->find($HeaderLine); my @Addrs = $Field->@*; my $NumAddrs = @Addrs; say "Sisimai::Address got $NumAddrs" unless $NumAddrs == 5_000; }, }
Der String Sisimai::Address tauch sowohl links als auch rechts vom `=>` auf. Gibt es einen Trick wie man das deduplizieren kann?

Hintergrund ist natürlich dass ich vergessen hatte den String in der Subroutine anzupassen und mich dann über den Output gewundert hatte.
Anhänge

text/plain
291 lines
benchmark_address_parsing.pl
- +4 replies
- barney
  
  Gestern 17:19
  
  User since
  2008-08-31
  198 Artikel
  BenutzerIn
  
  Mit komischen verschachtelten anonymen Subs geht es, aber schön ist es nicht.
  Anhänge
  
  text/plain
  33 lines
  funny_hash.pl
  - +3 replies
  - barney
    
    Gestern 17:33
    User since
    2008-08-31
    198 Artikel
    BenutzerIn
    
    Oder mit `do`:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
    
    use v5.24; use warnings; my %hash = ( do { my $key = 'AAA'; $key, sub { say $key; }; }, do { my $key = 'BBB'; $key, sub { say $key; }; }, ); $hash{'AAA'}->(); $hash{'BBB'}->();
    - +2 replies
    - haj
      
      Gestern 21:08
      
      User since
      2015-01-07
      578 Artikel
      BenutzerIn
      
      Ich finde die Variante mit do gut brauchbar. Aus kosmetischen Gründen würde ich das "fat comma" verwenden, weil das den Hash-Geruch verströmt:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      do { my $key = 'AAA'; $key => sub { say $key; }; },
      
      ...und nein, es gibt keinen Trick, mit dem ein Hash-Wert seinen Schlüssel kennt.
      - barney
        
        Heute 11:00
        
        User since
        2008-08-31
        198 Artikel
        BenutzerIn
        
        Das fette Komma macht die Sache wirklich lesbarer. Man kann die Sache auch noch ausreizen mit:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        do { my $key; $key = 'AAA' => sub { say $key; }; },
        
        Last edited: 2025-07-05 11:29:05 +0200 (CEST)

View all threads created Gestern 14:43.