Hash nach Entfernungen sortieren (Allgemeines zu Perl)

[thread]14611[/thread]

Hash nach Entfernungen sortieren

Leser: 22

Articles: hide open all | hide show old branches

+9 replies
jan999

2010-02-08 09:16
User since
2009-04-02
109 Artikel
BenutzerIn
Moin !

ich habe ein Hash mit ID und Entfernungen:
Code (perl): (dl )

1 2 3

my %noname_way = (); $noname_way{$way->id()} = $distance;
und möchte mir diese auflisten lassen.

mit
Code (perl): (dl )

1 2 3

foreach my $test(sort keys %noname_way){ print $noname_way{$test}." - "; }
bekomme ich die Daten nach der ID sortiert aufgelistet.

Ich bauche das aber für die Entfernung -> absteigend.

Kann mir einer weiterhelfen ??

Gruß Jan .-)
- +8 replies
- renee
  
  2010-02-08 09:29
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @sorted_keys = map{ $_->[0] }sort{ $b->[1] <=> $a->[1] }map{ [ $_, $hash{$_} ] }keys %hash; for my $key ( @sorted_keys ) { print $key, " -> ", $hash{$key},"\n"; }
  
  Das "map-sort-map" nennt man Schwartz'sche Transformation. Das benötigt man häufiger...
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +4 replies
  - jan999
    
    2010-02-08 09:43
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    Hallo renee,
    
    zunächst vielen Dank.
    
    habe das jetzt entsprechend meiner benennung angepaßt zu:
    
    Code (perl): (dl )
    
    1 2 3
    
    my @sorted_dist = map{ $_->[0] }sort{ $b->[1] <=> $a->[1] }map{ [ $_, $noname_way{$_} ] }keys %noname_way; foreach my $key(sort keys @sorted_dist){
    
    bekomme aber jetzt für die Zeile mit foreach folgende Meldung:
    
    Quote
    Type of arg 1 to keys must be hash (not private array) at haiti_river_selection.pl line 125, near "@
    sorted_dist)"
    
    Ist mir da noch ein Fehler unterlaufen ??
    
    Gruß Jan :-)
    - +3 replies
    - Crian
      
      2010-02-08 09:56
      
      User since
      2003-08-04
      5873 Artikel
      ModeratorIn
      
      Vergleiche
      
      Code (perl): (dl )
      
      for my $key ( @sorted_keys ) {
      
      mit
      
      Code (perl): (dl )
      
      foreach my $key(sort keys @sorted_dist){
      
      Was fällt dir auf?
      
      Ich finde, klarer könnte die Fehlermeldung doch gar nicht sein...
      Last edited: 2010-02-08 09:58:25 +0100 (CET)
      s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
      
      use strict; use warnings; Link zu meiner Perlseite
      - +2 replies
      - jan999
        
        2010-02-08 10:02
        
        User since
        2009-04-02
        109 Artikel
        BenutzerIn
        
        danke!
        
        man sollte nicht immer meinen das ist kaum geändert und dann irgendetwas bekannte aus dem kopf eintragen.
        
        ich weiß - lesen ist das zauberwort !
        
        gruß Jan :-)
        
        pq
        
        2010-02-08 10:20
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        lesen und vor allem verstehen des codes. wenn man ihn verstanden hat, kann man auch teile davon verändern.
        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
  - pq
    
    2010-02-08 10:18
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    man sollte vielleicht dazu sagen, dass man das in diesem fall nicht braucht. ob nun ein hashzugriff auf $hash{$_} oder auf $_->[1], das nimmt sch nix. schwartzian transform lohnt sich dann, wenn man eine vergleichsweise aufwendige operation wie eine regex machen muss.
    also:
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    my @sorted_keys = sort { $hash{ $b } <=> $hash{ $a } } keys %hash; for my $key ( @sorted_keys ) { print "$key -> $hash{$key}\n"; }
    
    reicht völlig aus.
    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
    - renee
      
      2010-02-08 10:24
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Wie schon im IRC gesagt: Ich sollte länger schlafen... Du hast vollkommen recht.
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
    - murphy
      
      2010-02-08 15:01
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      2010-02-08T09:18:46 pq
      man sollte vielleicht dazu sagen, dass man das in diesem fall nicht braucht. ob nun ein hashzugriff auf $hash{$_} oder auf $_->[1], das nimmt sch nix.
      [...]
      
      Außerdem sollte man vielleicht anmerken, dass man, wenn man schon ein sortiertes Array baut, in dem schließlich alle Schlüssel-Wert-Paare als Arrayreferenzen herumliegen, nicht unbedingt die Werte wegschmeißen und neu aus dem Hash auslesen muss sondern auch direkt das sortierte Array in geeigneter Form ausgeben kann.
      When C++ is your hammer, every problem looks like your thumb.

View all threads created 2010-02-08 09:16.