HoH sortiert ausgeben (Allgemeines zu Perl)

[thread]20475[/thread]

HoH sortiert ausgeben

Tags: perl5 sort HoH Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+6 replies
roli

2018-06-14 13:21
User since
2004-12-31
424 Artikel
BenutzerIn
Hallo zusammen,

ich habe einen Hash of Hashes, den ich gerne sortiert ausgeben würde.
In dem Hash sind Entfernungen zwischen Orten abggelegt:
Code (perl): (dl )

1 2 3

$entfernung{"Jwd"}{"Hauptstadt"}=3745; $entfernung{"Einsame Insel"}{"Jwd"}=50001; $entfernung{"Musterstadt"}{"Kleines Kaff"}=1226;
...
Diesen HoH würde ich jetzt gerne sortiert nach der Entfernung zwischen den Orten ausgeben. In etwa so:
Musterstadt - Kleines Kaff - 1226
Jwd - Hauptstadt - 3745
Einsame Insel - Jwd - 50001

Gefunden habe ich u.a. das hier: How to sort a hash of hashes by value?
aber irgendwie stehe ich wohl grade auf'm Schlauch ...
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- roli
  
  2018-06-14 13:48
  User since
  2004-12-31
  424 Artikel
  BenutzerIn
  Ich habe jetzt folgende Lösung, die ich allerdings nicht wirklich "elegant" finde:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  my %ent; my %seen; foreach my $ort_von (sort keys %entfernung) { foreach my $ort_nach (sort keys %entfernung) { next if($ort_von eq $ort_nach); #Entfernung zu sich selbst zu errechnen ist sinnlos next if($seen{"$ort_von$ort_nach"}); #diese Entfernung wurde bereits berechnet $seen{"$ort_von$ort_nach"}=1; #Entfernung A->B $seen{"$ort_nach$ort_von"}=1; #Entfernung B->A $ent{$entfernung{$ort_von}{$ort_nach}}={"von"=>$ort_von, "nach"=>$ort_nach}; } } foreach my $distance (sort { $a <=> $b } keys %ent) { say "Entfernung von: " .$ent{$distance}{"von"}." - nach: ".$ent{$distance}{"nach"}." - " . $distance; }
  
  Da gibt es doch sicher "schönere" Lösungen, oder?
  
  Danke
  Roland
  --
  "Steh vorn, während du fragst;
  sitzen soll, wer antwortet."
  Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- +3 replies
- clms
  
  2018-06-14 14:00
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  Der verlinkte Artikel hilft Dir nicht viel weiter, weil er ein ganz anderes Problem beschreibt, als Du lösen willst. Dort werden nur die Einträge der ersten Hash-Ebene sortiert. Sortierkriterium ist der Value zu einem Key aus der 2. Hash-Ebene.
  
  Du willst dagegen die Key-Kombinationen {Start}{Ziel} nach dem Value sortieren. Die Liste, die Du sortieren willst besteht also nicht nur aus der ersten Hash-Ebene sondern aus allen Kombinationen. Und - das hast Du nicht explizit gesagt, ist aber meine Vermutung - Du willst ohne Berücksichtigung der Gruppierung in dne Hashes "flach" sortieren, also
  
  Code: (dl )
  
  1 2 3 4
  
  "Musterstadt" => "Kleines Kaff" = 1226 "Jwd" => "Haupstadt" = 3745 "Musterstadt" => "Hauptstadt" = 4345 "Jwd" => "Kleines Kaff" = 5678
  
  anstatt zunächst den ersten Key und dann den zweiten wie in
  
  Code: (dl )
  
  1 2 3 4
  
  "Musterstadt" => "Kleines Kaff" = 1226 "Musterstadt" => "Hauptstadt" = 4345 "Jwd" => "Haupstadt" = 3745 "Jwd" => "Kleines Kaff" = 5678
  
  Also würde ich erstmal die flache Liste zusammenstellen und sie dann sortieren (ungetestet):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my @list; # Komibantionen ['start','ziel'] foreach my $start (keys %entfernung) { foreach my $ziel (keys %{$entfernung{$start}}) { push @list, [$start,$ziel]; } } my @sorted_list = sort {$entfernung{$a->[0]}{$a->[1]} <=> $entfernung{$b->[0]}{$b->[1]}} @list; printf "Von %s nach %s: %d\n", @$_, $entfernung{$_->[0]}{$_->[1]} foreach @sorted_list;
  
  Das ist sicher noch nicht optimal, aber die grundlegende Idee sollte klar sein.
  - roli
    
    2018-06-14 14:17
    
    User since
    2004-12-31
    424 Artikel
    BenutzerIn
    
    Danke!
    Das ist schon mal "schöner" als meine Lösung. Ausserdem hat meine Lösung ein Problem, sobald zwischen mehreren Orten die Entfernung gleich ist.
    Roland
    --
    "Steh vorn, während du fragst;
    sitzen soll, wer antwortet."
    Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
  - haj
    
    2018-06-14 16:12
    User since
    2015-01-07
    594 Artikel
    BenutzerIn
    
    Eine Alternative ist, die [$start,$ziel]-Elemente gleich um die passende Entfernung anzureichern. Dann werden die Vergleichsroutine und die Weiterverarbeitung einfacher:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    my @list; # Komibantionen ['start','ziel'] foreach my $start (keys %entfernung) { foreach my $ziel (keys %{$entfernung{$start}}) { push @list, [$start,$ziel,$entfernung{$start}{$ziel}]; } } my @sorted_list = sort { $a->[2] <=> $b->[2] } @list; printf "Von %s nach %s: %d\n", @$_ foreach @sorted_list;
    
    Für das Umbauen von Datenstrukturen bin ich großer Fan von map. Im Fall geschachtelter Hashes finde ich aber die Lösung von clms leichter lesbar als die Schachtelmap:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    my @list = map { my $start = $_; map { [$start, $_, $entfernung{$start}{$_}] } keys %{$entfernung{$start}}; } keys %entfernung; my @sorted_list = sort { $a->[2] <=> $b->[2] } @list; printf "Von %s nach %s: %d\n", @$_ foreach @sorted_list;
- rosti
  
  2018-06-14 16:22
  
  User since
  2011-03-19
  3751 Artikel
  BenutzerIn
  
  Hi,
  
  für mich stellt sich da eher die Frage nach einer geeigneten Datenstruktur. Die würde bei mir so aussehen: [[adorf,bdorf,entf],[a,b,e]], also ein Array mit den start,Ziel,Entfernung entsprechenden Tupeln. Das ist auch einfach zu sortieren.
  
  MfG
  https://www.rolfrost.de/
  
  Forum zu Fragen unserer Zeit

View all threads created 2018-06-14 13:21.