Sortieren der Werte bei einer Hash-Referenz. (Allgemeines zu Perl)

[thread]14427[/thread]

Sortieren der Werte bei einer Hash-Referenz.

Leser: 20

Articles: hide open all | hide show old branches

+4 replies
toby

2009-12-29 12:10
User since
2006-04-14
66 Artikel
BenutzerIn
Hi!

Ich kann einen Hash folgenderweise nach Werten sortieren:
Code: (dl )

1 2 3 4 5

my %myHash = ("A" => 215, "B"=> 10, "C" => 345, "D" => 30, "E"=>150); foreach my $key (sort { $myHash{$b} <=> $myHash{$a}} keys %myHash){ print "$key - $myHash{$key}\n"; }
Wie kann ich aber eine Hash-Referenz nach Werten sortieren. Also quasi z.B:
Code: (dl )

my $myHashRef = {"A" => 215, "B"=> 10, "C" => 345, "D" => 30, "E"=>150};
Ich habe momentan irgendwie "Brett vor'm Kopf" und kriege es mit dem dereferenzieren nicht hin :-/

THX
Toby
Last edited: 2009-12-29 12:11:45 +0100 (CET)
- +3 replies
- bianca
  
  2009-12-29 12:13
  User since
  2009-09-13
  6991 Artikel
  BenutzerIn
  Nur ein Versuch, bin da auch nicht so standfest:
  
  Code (perl): (dl )
  
  (sort {$myHashRef->{$a} <=> $myHashRef->{$b}} keys %myHashRef)
  
  Edit: Tausend mal gebastelt und umgestellt :))
  Last edited: 2009-12-29 12:17:03 +0100 (CET)
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - styx-cc
    
    2009-12-29 12:21
    User since
    2006-05-20
    533 Artikel
    BenutzerIn
    
    2009-12-29T11:13:57 bianca
    Nur ein Versuch, bin da auch nicht so standfest:
    
    Code (perl): (dl )
    
    (sort {$myHashRef->{$a} <=> $myHashRef->{$b}} keys %myHashRef)
    
    Edit: Tausend mal gebastelt und umgestellt :))
    
    Mach mal aus "keys %myHashRef" "keys %{$myHashRef}" um die Hashref selbst zu dereferenzieren.
    Pörl.
    - toby
      
      2009-12-29 12:25
      
      User since
      2006-04-14
      66 Artikel
      BenutzerIn
      
      Hi,
      
      Code: (dl )
      
      1 2 3 4
      
      my $myHashRef = {"A" => 215, "B"=> 10, "C" => 345, "D" => 30, "E"=>150}; foreach my $key (sort { $myHashRef->{$b} <=> $myHashRef->{$a} } keys %$myHashRef){ print "y $key - $myHashRef->{$key}\n"; }
      
      OMG, habe es nun auch zusammengebastelt.. ich glaub' ich brauch 'ne Pause... .)
      
      Danke schön!
      Toby

View all threads created 2009-12-29 12:10.