Hash nach Werten sortieren (Allgemeines zu Perl)

[thread]14267[/thread]

Hash nach Werten sortieren

Readers: 19

Articles: hide open all | hide show old branches

+5 replies
cbxk1xg

2009-11-19 13:10
User since
2003-10-20
496 articles
BenutzerIn
Ich habe mir grade in der FAQ den Artikel "Wie gebe ich Hashes sortiert aus?" gelesen. Ich hätte da aber sehr gerne etwas kürzeres.

Ich habe nur Zahlen als values!

Mein Hash sieht so aus:
Code: (dl )

1 2 3 4 5

my %liste1 = ("Seite01" => "24", "Seite02" => "653266", "Seite03" => "214", "Seite04" => "l2", );
Ich möchte die keys und values gerne nach Werten sortiert (in einer Schleife) ausgeben:
Code: (dl )

1 2 3 4

Seite02 wurde 653266 aufgerufen Seite03 wurde 214 aufgerufen Seite01 wurde 24 aufgerufen Seite01 wurde l2 aufgerufen
Hat jemand eine Idee?
- pq
  
  2009-11-19 13:16
  User since
  2003-08-04
  12208 articles
  Admin1
  ist ganz einfach. zum vergleich, numerisch sortiert nach keys:
  
  Code (perl): (dl )
  
  for my $key (sort { $a <=> $b } keys %hash) {}
  
  numerisch sortiert nach values:
  
  Code (perl): (dl )
  
  for my $key (sort { $hash{ $a } <=> $hash{ $b } } keys %hash) {}
  
  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
- +3 replies
- bianca
  
  2009-11-19 13:20
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  pq hat Dir beide Varianten genannt.
  Um es gem. Deiner Frage zu einem UND zu kombinieren - so komisch es auch klingt - verbindest Du beides einfach mit or.
  
  also:
  
  Code (perl): (dl )
  
  sort {$a cmp $b || $hash{ $a } <=> $hash{ $b }}
  
  Das sortiert alphanummerisch nach dem Key (der ist bei Deinem Beispiel nicht nummerisch) UND bei Gleichheit nummerisch nach der value.
  Last edited: 2009-11-19 13:21:37 +0100 (CET)
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - pq
    
    2009-11-19 13:26
    
    User since
    2003-08-04
    12208 articles
    Admin1
    
    ich glaube, die frage war: "nach Werten sortiert".
    ausgabe der keys und values, aber sortierung nur nach werten (values).
    im übrigen sollte zumindest die sortierung der values vor den keys kommen, zumindest wenn man sich die beispielausgabe anschaut.
    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
      
      2009-11-19 13:28
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      2009-11-19T12:26:17 pq
      ich glaube, die frage war: "nach Werten sortiert".
      ausgabe der keys und values, aber sortierung nur nach werten (values).
      im übrigen sollte zumindest die sortierung der values vor den keys kommen, zumindest wenn man sich die beispielausgabe anschaut.
      
      Hast Recht,
      
      also
      
      Code (perl): (dl )
      
      sort {$hash{ $b } <=> $hash{ $a } || $a cmp $b}
      
      Erste Sortierung: nummerisch nach value absteigend (größter zuerst)
      Zweite Sortierung: alphanummerisch nach key aufsteigend
      
      Edit: Jetzt hat der Fragesteller auch sämtliche Kombis gesehen und kann das gut lernen :)
      10 print "Hallo"
      20 goto 10

View all threads created 2009-11-19 13:10.