Auf value mit Platzhalter prüfen (gelöst) (Allgemeines zu Perl)

[thread]16886[/thread]

Auf value mit Platzhalter prüfen [gelöst]

Tags: perl5 hash value Platzhalter Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+9 replies
bianca

2011-11-05 13:17
User since
2009-09-13
7016 Artikel
BenutzerIn
Hallo!
Angenommen es gibt folgenden Hash:
Code (perl): (dl )

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

#!/usr/bin/perl -w use strict; use warnings; my %test = ( foo1 => 'a', foo2 => 'b', ); if (exists $test{"foo\d"}) { print "ja\n"; }
Wie kann ich denn nun prüfen, ob es eine value gibt, die mit "foo" anfängt, egal welche Ziffer dahinter steht?
Mein o.a. Versuch ist natürlich Unsinn aber so ungefähr würde ich es gern abfragen. Geht das irgendwie elegant und schnell?

Danke
10 print "Hallo"
20 goto 10
- +8 replies
- pq
  
  2011-11-05 14:35
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  da musst du alle keys durchlaufen, deine regex anwenden und bei erfolg die schleife abbrechen. mit List::Util::first kannst du es höchstens etwas hübscher machen und auf eine "explizite" schleife verzichten.
  
  wenn du zahlen in hash-keys hast, könnte es aber auch sinnvoll sein, dort ein array abzulegen.
  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
  - bianca
    
    2011-11-05 14:45
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Danke. Ich werde List::Util verwenden.
    10 print "Hallo"
    20 goto 10
  - +6 replies
  - bianca
    
    2011-11-07 18:10
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Bin mir jetzt gerade doch nicht ganz sicher mit List::Util da ich auch die Value mit dem höchsten Zahlenwert hinter foo brauche.
    
    Wäre das hier die performanteste Lösung, den zu ermitteln?
    Oder geht es noch effektiver?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    #!/usr/bin/perl -w use strict; use warnings; my %test = ( foo1 => 'a', foo2 => 'b', foo10 => 'c', ); my ($letzter) = sort {substr ($b,3) <=> substr ($a,3)} grep {$_ =~ /^foo\d+$/} (keys %test); print "$letzter\n";
    
    10 print "Hallo"
    20 goto 10
    - +5 replies
    - pq
      
      2011-11-07 18:40
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      wenn du nur den höchsten wert brauchst, nimmst du generell List::Util::max statt sort, aber das kommt auch auf die anzahl der keys an.
      probiers aus.
      man kann sowas nicht pauschal beurteilen.
      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
      - bianca
        
        2011-11-07 21:03
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-11-07T17:40:40 pq
        wenn du nur den höchsten wert brauchst, nimmst du generell List::Util::max statt sort
        
        Wie sag ich's dem List::Util denn, dass es um das höchste Element mit dem Prefix "foo" geht und nicht um "bar" z.B.?
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        pq
        
        2011-11-07 21:59
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        das ist doch nicht so schwer...
        
        Code (perl): (dl )
        
        1 2
        
        # ungetestet my $max = 'foo' . max( map { /^foo(\d+)$/ ? $1 : () } keys %test );
        
        falls es etwas komplexer wird, kannst du dann auch reduce() verwenden.
        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
        
        +2 replies
        
        bianca
        
        2011-11-08 06:00
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Geiler Code :)
        Das generiert jetzt quasi eine Liste mit Treffern für foo und übergibt diese an List::Util, richtig? Und List::Util braucht dann nur noch aus diesen Elementen das Größte heraussuchen.
        Habe ich das richtig verstanden?
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2011-11-08 11:30
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        genau
        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

View all threads created 2011-11-05 13:17.