Laufende Nummer eines Keys finden (gelöst) (Allgemeines zu Perl)

[thread]16022[/thread]

Laufende Nummer eines Keys finden [gelöst]

Leser: 24

Articles: hide open all | hide show old branches

+10 replies
bianca

2011-03-01 13:06
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Tag Zusammen!
Stehe mal wieder ganz leicht auf dem Schlauch und bitte um Hilfe.
Code (perl): (dl )

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

#!/usr/bin/perl -w use strict; use warnings; my %hash = ( 100 => 'foo', 200 => 'bar', 300 => 'foobar', 400 => 'foofoo', 500 => 'barbar', ); my $test = '300'; my $nr = grep {$_ eq $test} keys %hash; print "Laufende Nr. $nr\n";
Wie bekomme ich es hin, dass hier das Ergebnis 2 geliefert wird, weil der Key 300 als Array betrachtet der Eintrag [2] ist?
grep allein geht nicht, das liefert 1, verstehe ich auch, weil es in diesem Kontext die Anzahl liefert. Wie bekomme ich das andere hin?

Danke Euch

Editiert von bianca: Typo
Last edited: 2011-03-01 13:08:15 +0100 (CET)
10 print "Hallo"
20 goto 10
- +7 replies
- clms
  
  2011-03-01 13:23
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  2011-03-01T12:06:23 bianca
  Wie bekomme ich es hin, dass hier das Ergebnis 2 geliefert wird, weil der Key 300 als Array betrachtet der Eintrag [2] ist?
  grep allein geht nicht, das liefert 1, verstehe ich auch, weil es in diesem Kontext die Anzahl liefert. Wie bekomme ich das andere hin?
  
  Erstmal würde ich die Keys in ein geordnets Array überführen:
  
  Code (perl): (dl )
  
  my @sortedkeys = sort keys %hash;
  
  (keys %hash liefert die Keys in zufälliger Reihenfolge.)
  
  Dann kannst Du in dem Array nach dem passenden Index suchen, z.B.
  
  Code (perl): (dl )
  
  1 2
  
  my $nr = 0; $nr++ while $sortedkeys[$nr] < $test;
  
  (ungetestet)
  - +6 replies
  - bianca
    
    2011-03-01 13:38
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Danke für die Antwort. Ich bin überrascht, dass man tatsächlich eine Schleife ansetzen muss. Das wollte ich mir eigentlich sparen, weil ich die Aufgabe an sich für viel zu profan halte :)
    Gibt es da garnichts mit List::Util oder map() oder soetwas "perliges"? Ich würde auch immer gern an soetwas dazulernen.
    
    Danke Euch
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - clms
      
      2011-03-01 14:28
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      2011-03-01T12:38:53 bianca
      Danke für die Antwort. Ich bin überrascht, dass man tatsächlich eine Schleife ansetzen muss. Das wollte ich mir eigentlich sparen, weil ich die Aufgabe an sich für viel zu profan halte :)
      Gibt es da garnichts mit List::Util oder map() oder soetwas "perliges"? Ich würde auch immer gern an soetwas dazulernen.
      
      List::Util::first_index() gibt es nicht (zumindest bei Perl 5.8.8)
      
      Mir fällt höchstens folgendes ein:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      use List::Util qw(first); my $i = 0; my @sortedarray = map {[$_,$i++]} sort keys(%hash); my $nr = (first {$_->[0] >= $test} @sortedarray)->[1];
      
      (untested)
      
      Da fehlt die Schleife im User-Code (aber first wird sie trotzdem ausführen).
      
      Wenn es Dir auf die Effizienz ankommt, würde ich eher die Tatsache nutzen, dass das Array sortiert ist. Du kannst also die Suche nach dem passenden Index beschleunigen, wenn Du die Indices nicht der Reihe nach durchgehst sondern in der Mitte anfängst.
      - bianca
        
        2011-03-01 15:02
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Danke Dir clms. Das wäre mit Kanonen auf Spatzen geschossen. Danke für die Hilfe. Ich mach dann doch die einfache Schleifenvariante.
        Dachte nur nicht, dass es tatsächlich keinen kurzen perligen Einzeiler für sowas gibt, hatte angenommen, dass es mir nur gerade nicht einfällt. Dem scheint nicht so zu sein.
        10 print "Hallo"
        20 goto 10
      - Linuxer
        
        2011-03-01 15:17
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Aber es gibt first_index() in List::MoreUtils...
        
        edit: hm, murphy war schneller und/oder ich zu sehr/lange abgelenkt...
        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!
    - +2 replies
    - murphy
      
      2011-03-01 15:10
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      2011-03-01T12:38:53 bianca
      [...]
      Gibt es da garnichts mit List::Util oder map() oder soetwas "perliges"?
      [...]
      
      Natürlich gibt es das:
      
      Code (perl): (dl )
      
      1 2
      
      use List::MoreUtils qw/firstidx/; my $idx = firstidx { $_ eq $test } sort keys %hash;
      
      When C++ is your hammer, every problem looks like your thumb.
      - bianca
        
        2011-03-01 15:23
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-03-01T14:10:24 murphy
        List::MoreUtils qw/firstidx/;
        
        Scheint nicht im Core zu sein. Damit wäre es für diese Anwendung etwas zu viel, das muss man ja alles nachhalten.
        
        Trotzdem Danke, sieht sehr gut aus!
        10 print "Hallo"
        20 goto 10
- pq
  
  2011-03-01 13:28
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $nr = 0; for (keys %hash) { last if $_ == $test; $nr++; }
  
  aber hashkeys werden nicht in der von dir erwarteten/definierten reihenfolge geliefert. es empfiehlt sich also, wie clms sagte, eine sortierung.
  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
- dgw
  
  2011-03-01 15:12
  User since
  2010-08-16
  27 Artikel
  BenutzerIn
  Hi,
  
  es geht auch ohne Schleife (dafür aber zulasten des Speichers):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  #!/usr/bin/perl -w use strict; use warnings; my %hash = ( 100 => 'foo', 200 => 'bar', 300 => 'foobar', 400 => 'foofoo', 500 => 'barbar', ); my $test = '300'; my @keys = sort { $a <=> $b } keys %hash ; my %keys_nummeriert ; @keys_nummeriert{@keys} = ( 0 .. $#keys ) ; printf "Index von value '%s' ist '%d'\n" , $test , $keys_nummeriert{$test} ;
  
  Das liefert wie gewünscht 2 zurück.
  
  Just my 2 cents.
  Daniel

View all threads created 2011-03-01 13:06.