array of hashes nach value durchsuchen (Allgemeines zu Perl)

[thread]18392[/thread]

array of hashes nach value durchsuchen

Leser: 18

Articles: hide open all | hide show old branches

+12 replies
Gast peter.p

2013-06-19 21:17

hallo,

nachdem mir beim befüllen meines hasharrays so gut geholfen wurde, bin ich ans nächste problem gestossen :-)

ich würde jetzt gerne mein array of hashes, besser gesagt dessen values, nach einem string oder teilstring durchsuchen und die hashes, die das suchwort enthalten, in ein neues array speichern. ich habe einige varianten versucht, aber die verschachtelung macht mir probleme.

wie könnte so etwas aussehen ?

danke
Last edited: 2013-06-19 21:23:39 +0200 (CEST)
- +3 replies
- GwenDragon
  
  2013-06-19 21:36
  User since
  2005-01-17
  14540 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  my $suchbegriff = 'bla'; my @array_of_hashrefs = ( { name => 'BLAH', alter => 9 }, { name => 'Foo B. Ar-Baz', alter => 22 } ); # Namen durchsuchen @found_names = map { $_->{name} } # Erzeuge daraus eine Liste von Namen grep { # Suche $_->{name} =~ /$suchbegriff/i } # nach: match name dem Suchbegriff mit ignorierter Groß/Kleinschreibung @array_of_hashrefs; # Hashes
  
  Kennst du schon map und grep?
  Last edited: 2013-06-19 21:39:42 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - Gast peter.p
    
    2013-06-19 21:48
    
    danke für die antwort, ja ich kenne map und grep, aber bin noch perl noob und hab meine schwierigkeiten :-)
    
    die lösung ist schön, nur würde ich gerne in allen values aller keys danach suchen. kann ich alle values mappen ?
    Last edited: 2013-06-19 22:00:14 +0200 (CEST)
    - Linuxer
      
      2013-06-19 22:31
      
      User since
      2006-01-27
      3872 Artikel
      HausmeisterIn
      
      Wenn es in allen Values suchen soll, kannst Du mit values() alle Values des Hashes ausgeben lassen und auf diese dann den grep() loslassen.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
      
      use 5.12.0; my $search = '1'; my @AoH = ( { name => 'bla', alter => 9, }, { name => 'baba', alter => 19, }, { name => 'foo', alter => 11, }, ); my @matches; for my $i ( 0 .. $#AoH ) { # add index if searchstring was found in hash values push @matches, $i if grep { m/\Q$search\E/ } values %{ $AoH[$i] }; } # print result of search say "$search matched in elements: @matches";
      
      Last edited: 2013-06-20 14:05:10 +0200 (CEST)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +8 replies
- lichtkind
  
  2013-06-20 02:29
  
  User since
  2004-03-22
  5680 Artikel
  ModeratorIn + EditorIn
  
  solang es nur darum geht zu suchen könntest auch den smartmatch operator benutzen, auch wenn er als experimentell markiert ist.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - +7 replies
  - Gast peter.p
    
    2013-06-20 10:35
    vielen dank erstmal :-) der smartmatch operator ist ja eine geniale sache, ich teste ihn gerade. vorläufig hab ich es so gelöst
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    my $search = 'search'; my @matches; for my $i ( 0 .. $#list ) { if ( grep { /$search/i } values %{ $list[$i] } ) { push @matches, \%{ $list[$i] } } }
    
    so pushe ich direkt die hashes, um sie weiter verwenden zu können. eine sache habe ich nicht verstanden :
    
    welchen effekt hat hier der pattern matching operator ? und für was steht \Q und \E ?
    weglassen dieser optionen bewirkt bei mir das gleiche ergebnis.
    Last edited: 2013-06-20 10:48:25 +0200 (CEST)
    - +2 replies
    - GwenDragon
      
      2013-06-20 11:00
      
      User since
      2005-01-17
      14540 Artikel
      Admin1
      
      Guest peter.p
      welchen effekt hat hier der pattern matching operator ? und für was steht \Q und \E ?
      
      Du beziehst dich wohl auf msg #168496:
      
      Code (perl): (dl )
      
      m/\Q$search\E/
      
      m ist der Match-Operator. m// hat densselben Effekt wie //. m wird oft benutzt, wenn bei Regex andere Klammern benutzt oder der Regex selbst das Zeichen / beinhaltet.
      Also z.B. bei m{/} , das vermeidet so grässliches Escapen wie \/.
      
      \Q bedeutet: Quote das was zwischen \Q und \E steht -- also: verwende den Inhalt der Variablen nicht als Regex-Muster sondern so wie es ist.
      
      \E bedutet: Ende des Quotens
      
      Schau dir mal mit perldoc perlre an.
      Last edited: 2013-06-20 11:05:53 +0200 (CEST)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - Gast peter.p
        
        2013-06-20 11:12
        
        vielen dank :-)
        Last edited: 2013-06-20 11:26:53 +0200 (CEST)
    - +4 replies
    - murphy
      
      2013-06-20 11:35
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Übrigens könnte man auch einfach zweimal grep verwenden:
      
      Code (perl): (dl )
      
      my @matches = grep { grep /$search/i, values %$_ } @list;
      
      When C++ is your hammer, every problem looks like your thumb.
      - +3 replies
      - Gast peter.p
        
        2013-06-20 12:24
        
        werden erst alle values gegrept und danach nach dem string gesucht ?
        wie könnte man es in 2 grep befehle auseinanderbauen ? meine versuche scheitern...
        
        Code (perl): (dl )
        
        1 2
        
        @matches = grep { values %$_ } @list; @matches = grep {/$search/i} @matches;
        
        Last edited: 2013-06-20 12:46:54 +0200 (CEST)
        
        +2 replies
        
        clms
        
        2013-06-20 14:05
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        Guest peter.p
        werden erst alle values gegrept und danach nach dem string gesucht ?
        Nein.
        
        Das sind zwei in einandergeschachtelte grep-Schleifen.
        Das äußere grep geht alle Hashes aus Deiner Liste durch. Als Filter-Bedingung nutzt es das Ergebins des inneren greps, dass alle Werte des aktuellen Hashes durchgeht und schaut, ob einer matched.
        
        Guest peter.p
        wie könnte man es in 2 grep befehle auseinanderbauen ?
        
        Gar nicht - jedenfalls nicht sinnvoll.
        Das innere grep mußt Du bei diesem Ansatz auf jeden Fall für jeden Hash einmal ausführen.
        
        Gast peter.p
        
        2013-06-20 17:02
        
        alles klar, danke
        Last edited: 2013-06-20 17:34:03 +0200 (CEST)

View all threads created 2013-06-19 21:17.