map grep (Allgemeines zu Perl)

[thread]13432[/thread]

map grep

Leser: 21

Articles: hide open all | hide show old branches

+10 replies
Gast gast

2009-04-24 21:29
Hi!

Wie kann man soetwas mit grep oder map schreiben?
Code: (dl )

1 2 3

for my $key ( keys %hash_1 ) { $hash_2{$key} = $hash_1{$key} if $key =~ /regex/; }
- neniro
  
  2009-04-24 21:48
  User since
  2008-12-14
  79 Artikel
  BenutzerIn
  ungetestet:
  
  Code (perl): (dl )
  
  1 2 3
  
  my %hash2 = map { $_, $hash1{$_} } grep { /foo/ } keys %hash1;
  
  -- yet another amateur perl hacker
- +2 replies
- Linuxer
  
  2009-04-24 21:50
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Code (perl): (dl )
  
  my %hash2 = map { ( $_, $hash1{$k} ) } grep { m/regex/ } keys %hash1;
  
  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!
  - LanX-
    
    2009-04-24 22:23
    
    User since
    2008-07-15
    1000 Artikel
    BenutzerIn
    
    s/k/_/ ???
    me and my writeups
- +6 replies
- LanX-
  
  2009-04-24 22:20
  User since
  2008-07-15
  1000 Artikel
  BenutzerIn
  die Frage ist, obs wirklich besser und lesbarer wird!
  
  ungetestet mit map
  
  Code (perl): (dl )
  
  1 2 3
  
  %hash_2= map { /regex/ ? ( $_ , $hash_1{$_} ) : () } keys %hash_1;
  
  und eine Lösung mit Hashslices (noch ungetesteter ;-):
  
  Code (perl): (dl )
  
  1 2
  
  my @keys = grep { /regex/ } keys %hash_1; @hash_2{@keys} = @hash_1{@keys};
  
  braucht mans öfter wäre die Definition einer Funktion hgrep() geschickter!
  
  EDIT: wie z.B. hier gezeigt: http://www.perlmonks.org/index.pl/jacques?node_id=...
  
  UPDATE: Syntaxfehler korrigiert, danke RPerl!
  Last edited: 2009-04-25 17:12:08 +0200 (CEST)
  me and my writeups
  - +5 replies
  - RPerl
    
    2009-04-25 16:40
    
    User since
    2006-11-26
    384 Artikel
    BenutzerIn
    
    Auf die Schluessel eines Hash greift man doch eigentlich nicht mit $hash_1($_) zu, oder?
    Ich kenn nur folgende Art: $hash_1{$_}
    - +4 replies
    - LanX-
      
      2009-04-25 17:14
      
      User since
      2008-07-15
      1000 Artikel
      BenutzerIn
      
      du hast natürlich recht, aber ungetesteten Code schnell fehlerfrei hinzuschreiben ist in Perl schwer (wahrscheinlich besonders schwer!)
      
      deswegen schreib ich auch "ungetestet" dazu, schließlich kann der OP solche Sachen auch alleine rausfinden. Müsste ich's erst testen, würd ich wohl erst gar nicht antworten.
      Last edited: 2009-04-25 17:19:28 +0200 (CEST)
      me and my writeups
      - +2 replies
      - Gast gast
        
        2009-04-25 17:59
        
        Nein, es soll nicht komplizierte werden. Ich habe es mir zu einfach vorgestellt. Je weiß ich wenigstens, wieso es bei meinen Versuchen nicht funktioniert hat.
        
        LanX-
        
        2009-04-25 18:24
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        Man kann sich an den geposteten Code idiomatisch gewöhnen, ich mag z.B. meine maplösung...
        
        was mich aber überall stört, ist dass es nicht DRY ist! wenn man hash_1 zwomal hinschreiben muss, hats wieder ne Fehlerquelle mehr.
        
        Wie gesagt wenn mans öfter braucht sollte man sich lieber Funktionen hgrep und hmap definieren.
        
        Hab ich auch schon gemacht, und ein diesbzgl Modul bei CPAN wär eine Bereicherung.
        
        Beim verlinkten Beispiel bei den Monks werden zusätzlich variablen $h und $v für key und value vorbelegt um es DRY zu machen
        
        (... jongliererei mit local seh ich aber eher misstrauisch)
        
        PS: übrigens man könnte auch was mit each basteln!
        
        UNGETESTET:
        
        Code (perl): (dl )
        
        1 2 3
        
        while ( my ($key, $value) = each(%hash1) ) { $hash2{ $key } = $value if $key =~ /regex/; }
        
        Last edited: 2009-04-25 18:34:51 +0200 (CEST)
        me and my writeups
      - RPerl
        
        2009-04-25 20:50
        
        User since
        2006-11-26
        384 Artikel
        BenutzerIn
        
        Ich bin selbst unsicher geworden. Haette ja sein koennen das es Absicht ist und ich nur irgendwas falsch verstehe.
        Alles extra durch den Interpreter zu jagen bevor man code postet halte ich auch fuer "zuviel".
        
        Vielen Dank und einen schoenen Abend! :)
        
        Gruss!
        rperl

View all threads created 2009-04-24 21:29.