mehrdimensionales Hash sortieren (Allgemeines zu Perl)

[thread]7989[/thread]

mehrdimensionales Hash sortieren

Leser: 1

zipster

2006-05-17 14:02

User since
2004-09-06
458 Artikel
BenutzerIn
[default_avatar]

Hi,

erst mal vor Weg. Folgenden Thread habe ich bereits gelesen und so wie ich es verstanden hatte wollte Master was anderes als ich.
Hash sortieren

Man kann ja Hashes so sortieren

Code: (dl )

1
2
3

foreach my $zeile (sort { $hash{$a} <=> $hash{$b} } keys %hash) {
       ...
    }

Das ist auch genau das was ich brauche bloß arbeite ich mit einem mehrdimensionalen Hash und ich bekomme es nicht hin das oben so umzubauen das es für mich passt, vielleicht könnt ihr mir dabei mal weiterhelfen.

Mein Hash ist wie folgt aufgebaut.

Code: (dl )

%HASH->ID->VORNAME
          ->NACHNAME
          ->STRASSE
          ->...
#Hier nochmal ein Beispiel
%HASH->1->Fritz
             ->Müller
             ->Fuchsweg
             ->...
          ->2->Joachim
             ->Schmidt
             ->Bahnhof Str.
             ->...
...

Ich hätte halt gern das ich ein Mal nach Name sortieren kann oder nach Strasse usw. um es dann in einem Interface anzeigen zu können.

Gruß
Seri aka Zipster\n\n

http://home.arcor.de/dsl-neunkirchen/etc/ie_firefo...

lichtkind

2006-05-17 14:41

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

klingt nach einer aufgabe für superrandal....

ne echt ne schwartzsche trafo wäre hier das mittel meiner wahl einfach mit map alle starssen oder was du willst in zweiten index kopieren, sortieren und so sortierten array der indexe ausgeben.

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

zipster

2006-05-17 14:50

User since
2004-09-06
458 Artikel
BenutzerIn
[default_avatar]

wer oder was ist superrandal?

Würde gern das Hash behalten. Denn befülle damit Entrys usw. und schreibe das danach in eine Datenbank. Und wenn ich auf einmal Arrays nutze nur um eine sortierung durchzuführen müßte ich hintendran dann auch alles verändern und immer abfragen "Hab ich jetzt sortiert oder nicht?"

http://home.arcor.de/dsl-neunkirchen/etc/ie_firefo...

GwenDragon

2006-05-17 15:23

User since
2005-01-17
14748 Artikel
Admin1

superrandal?

Wohl "Big Perl Daddy" Randal Schwartz ;)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

lichtkind

2006-05-17 15:35

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

ja gwen,

zipster natürlich behältst du den hash, was die trafo macht ist nur ein zusätzlichen array erstellen der die indize des hashes enthält, sortiert nach deinem wunsch.\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

lichtkind

2006-05-17 15:40

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

Code: (dl )

1: my @sortedKeys =           
2:   map { $_->[1] }              
3:   sort { $a->[0] <=> $b->[0] } 
4:   map { [ $hash{$_}{strasse}, $_ ] }
5:   keys %hash;                      # erzeugt liste der keys

\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

zipster

2006-05-17 15:51

User since
2004-09-06
458 Artikel
BenutzerIn
[default_avatar]

Ach du hast das anders gemeint, ups sorry...

Heißt das das ich dann es statt so

Code: (dl )

1
2
3

    for my $datensatz_id (sort keys(%{$hash_ref})){
        my $e = $hlist->addchild("");
...

so machen soll?

Code: (dl )

1
2
3

for my $datensatz_id (@sortedKeys){
        my $e = $hlist->addchild("");
...

http://home.arcor.de/dsl-neunkirchen/etc/ie_firefo...

lichtkind

2006-05-17 15:58

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

wenn du die adressen sortiert ausgeben willst reicht

Code: (dl )

1
2
3

for my $key (@sortedKeys){
   $Adresse = \%{$hash{$key}};
}

kannst aber auch direkt machen, dein letztes post war etwas undeutlich für mich.\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

zipster

2006-05-17 16:58

User since
2004-09-06
458 Artikel
BenutzerIn
[default_avatar]

Irgendwie sortiert er es immer gleich.

Code: (dl )

1: my @sortedKeys =          
2:   map { $_->[1] }              
3:   sort { $a->[0] <=> $b->[0] }
4:   map { [ $hash{$_}{strasse}, $_ ] }
5:   keys %hash;                      # erzeugt liste der keys

Ob ich da jetzt Strasse oder sonst was stehen habe es kommt immer das gleiche raus... :(

/EDIT
Bei Hausnummer und Postleitzahl funktiniert es. Also geht es nur bei Buchstaben nicht...
Mmmhhh...\n\n

http://home.arcor.de/dsl-neunkirchen/etc/ie_firefo...

lichtkind

2006-05-17 17:09

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

hängt auch von der sortiermethode ab :)

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

View all threads created 2006-05-17 14:02.