gleiche Werte in hash schnell finden? (Allgemeines zu Perl)

[thread]19797[/thread]

gleiche Werte in hash schnell finden?

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+10 replies
Gast perlensammler22

2015-09-11 12:31
Hallo,

ich habe einen Hash mit folgende Aufbaue.
(Die "Helfer gibts ca. 100x)
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12

$VAR1 = { 'Helfer1' => { 'Mail' => 'Mail@adresse', 'RicDump' => '0', 'EnableMail' => '1', 'EnableTS' => '0', 'Kommentar' => '', 'HandyTS' => '+49xxxxxx', 'RIC' => '1234560,1234561,1234562,1234563', }, .... };
Von außen bekomme ich die $externeRIC geliefert.
Die RIC werden mit split in einen Array übertragen.

@a=split(/,/,$helfer{$_}{RIC}); #$_ = Helfername (Helfer1)

Im Anschluss vergleiche ich in einer for schleife ob $externeRIC == $a[$i] ist
Wenn das matcht generiere ich eine E-Mail an den Betroffenen Helfer.
Nun meine Frage, gibts eine Möglichkeit, ohne Schleife, alle E-Mail Adressen die zur $externeRIC passen in der Variabel $sendMail kommasepariert zu speichern. So das ich mit einer einzigen E-Mail alle Helfer erreichen kann.

Gruß
Last edited: 2015-09-11 12:39:33 +0200 (CEST)
- Muffi
  
  2015-09-11 13:04
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Da wirst wohl eine neue Struktur aufbaun müssen
  in der Art
  
  Code (perl): (dl )
  
  $lookup{$ric} = \@emails # oder statt @emails auch @helfer, wenn mehr Daten gebraucht werden
  
  1 + 1 = 10
- +5 replies
- GwenDragon
  
  2015-09-11 13:35
  User since
  2005-01-17
  14760 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
  
  my $hash = { 'Helfer1' => { 'Mail' => 'Mail1@adresse', 'RicDump' => '0', 'EnableMail' => '1', 'EnableTS' => '0', 'Kommentar' => '', 'HandyTS' => '+49xxxxxx', 'RIC' => '1234560,1234561,8,123462,123453', }, 'Helfer3' => { 'Mail' => 'Mail3@adresse', 'RicDump' => '0', 'EnableMail' => '1', 'EnableTS' => '0', 'Kommentar' => '', 'HandyTS' => '+49xxxxxx', 'RIC' => '1234560,1234561,1234562,1234563,99', }, }; my $externeRIC = "99"; my $sendMail = join ",", map { $hash->{$_}->{Mail} } grep { $externeRIC ~~ [ split /,/, $hash->{$_}->{RIC} ] } keys %$hash;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Raubtier
    
    2015-09-11 14:05
    
    User since
    2012-05-04
    1076 Artikel
    BenutzerIn
    
    Kurzer Vorschlag: da die Hash-Keys hier eh nicht interessieren, könntest du auch einfach über values %$hash; loopen und $hash->{$_} jeweils durch $_ ersetzen.
    
    Allerdings ist das map-grep-(keys/values)-Kontrukt natürlich trotzdem eine Schleife, nur dass kein for mehr da steht ;-)
  - +3 replies
  - Gast perlensammler22
    
    2015-09-11 16:17
    Hallo GwenDragon,
    
    dein Code ist ja super schnell.
    Leider kapier ich ihn noch nicht so richtig.
    Und ich bekomme folgende Info angezeigt:
    "Smartmatch is experimental at /tmp/schnell.pl line 30."
    
    Code: (dl )
    
    grep { $externeRIC ~~ [ split /,/, $hash->{$_}->{RIC} ] }
    
    So bin noch etwas am Studieren wie das genau funktioniert.
    
    Gruß
    perlensammler22
    Last edited: 2015-09-11 16:29:35 +0200 (CEST)
    - Raubtier
      
      2015-09-11 16:55
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Alles über den Smartmatch-Operator findest du hier:
      http://perldoc.perl.org/perlop.html#Smartmatch-Operator
      
      Ich frage mich gerade, wie viele groß dein Hash eigentlich ist und wie oft du nachgucken musst, wie die E-Mail-Adressen sind (sind wir bei Millionen von Einträgen und Millionen von Lookups oder ist das viel kleiner?). Wieso ist es jetzt so viel schneller als vorher? Ich hatte nämlich auch an Muffis Lösung gedacht, zumindest wenn du sehr viele Lookups machen musst.
    - GwenDragon
      
      2015-09-11 17:16
      
      User since
      2005-01-17
      14760 Artikel
      Admin1
      
      Kennst du grep und map?
      Wenn nein empfehle ich http://perlmaven.com/transforming-a-perl-array-usi... und http://perlmaven.com/filtering-values-with-perl-gr... zu lesen.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      my $sendMail = join ",", # setze diese Werte als kommagetrennte Zeichenkette zusammen # # aus den Werten des map map { $hash->{$_}->{Mail} # erzeuge ein Array aus Mailadressen mit den gefundenen Schlüsseln } # aus den Werten des grep # grep { # suche alle Schlüssel $externeRIC # bei denen externeRIC ~~ # übereinstimmt (smartmatch) [ # mit dem Array split /,/, $hash->{$_}->{RIC} # aus den mit Komma gesplitteten Werten von RIC ] } # keys %$hash; # iteriere über alle Schlüssel des Hashes
      
      Last edited: 2015-09-11 17:21:02 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- hlubenow
  
  2015-09-11 19:21
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Guest perlensammler22
  gibts eine Möglichkeit, ohne Schleife
  
  Was hast Du gegen Schleifen?
  - +2 replies
  - GwenDragon
    
    2015-09-11 20:01
    
    User since
    2005-01-17
    14760 Artikel
    Admin1
    
    <IRONIC>Schleifen in Perl sehen so unelegant aus, finde ich.
    So snap, map, strap, grep ist vieeeel cooler. Daran ist der Swartz schuld mit seinem Trafo (Schwartzsche Transformation).
    Schleifen sind was für Geschenke und kleine Kinder.
    </IRONIC>
    
    Ansonsten ist es wie Tim Towdy sagt: Jeds Progrämmlerle machts so wie es will.
    Sollen Sie doch alles hinter sich herschleifen wenn sie von braven Programmiersprachen herkommen. Ist nicht verboten.
    
    Editiert von GwenDragon: Hinweis auf Schwartzsche Tr.
    Last edited: 2015-09-12 18:09:10 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - Gast perlensammler22
      
      2015-09-12 17:47
      
      Mir gefallen Lösungen ohne Schleifen auch besser.
      Verschachtelte Schleifen sind immer sehr unübersichtlich und haben auf einem RPI gefühlt auch längere Laufzeiten als ohne.
      Die Lösung von GwenDragon finde ich genial.
      Bis jetzt muss eine mehrfach verschachtelte Schleife sich immer durch alle Helfer durchwühlen, den Wert vergleichen und wenn er passt die E-Mail versenden.
      Jetzt macht das ein Einzeiler.
      
      Vielen Dank
      perlensammler22
      Last edited: 2015-09-12 18:03:54 +0200 (CEST)

View all threads created 2015-09-11 12:31.