nach referenz sortieren (Allgemeines zu Perl)

Froschpopo

2005-07-28 14:24

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

ich hab nen hash:

Code: (dl )

%hash = (
    1 => [name1, alter1, geschlecht1],
    2 => [name2, alter2, geschlecht2]
    usw.
);

wie kann ich jetzt nach index 1 sortieren, also nach alter?

dominicn

2005-07-28 14:32

User since
2003-08-08
327 Artikel
BenutzerIn
[default_avatar]

Zwischenfrage: Was willst du als Ergebnis haben? Einen Hash an sich zu sortieren mach IMHO keinen Sinn, oder übersehe ich etwas dabei?

Froschpopo

2005-07-28 14:35

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

ok dann machen wir daraus ein array!

@array = ([1, name1, alter1, geschlecht1], [2, name2, alter2, geschlecht2]...);

den will ich jetzt nach geschlecht sortiert haben.
geschlecht kann sein: w oder m\n\n

dominicn

2005-07-28 14:37

User since
2003-08-08
327 Artikel
BenutzerIn
[default_avatar]

gut, das ist kein Problem:

Code: (dl )

my @sortedarray = sort { $a->[3] cmp $b->[3] } @array;

Taulmarill

2005-07-28 17:00

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

es lässt sich auch eine sortierte liste der hashkeys erstellen:

Code: (dl )

my @sKeys = sort { $hash{$a}->[2] cmp $hash{$b}->[2] } keys %hash;

imho macht aber ein hash mit numerischen, fortlaufenden keys irgendwie keinen sinn ...\n\n

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

Crian

2005-07-28 17:40

User since
2003-08-04
5867 Artikel
ModeratorIn

nene, genau dafür gibts doch Arrays =)

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

Froschpopo

2005-08-31 22:27

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

[quote=Froschpopo,28.07.2005, 12:24]ich hab nen hash:

Code: (dl )

%hash = (
    1 => [name1, alter1, geschlecht1],
    2 => [name2, alter2, geschlecht2]
    usw.
);

wie kann ich jetzt nach index 1 sortieren, also nach alter?[/quote]
dieses array möchte ich jetzt noc zusätzlich zur geschlechtssortierung nach alter sortieren!

Also z.B. so:
name1 (17 w)
name2 (18 w)
name 3 (20 w)
name 4 (14 m)
name 5 (16 m)
name 6 (22 m)

Heromaster

2005-08-31 22:55

User since
2003-08-05
220 Artikel
BenutzerIn
[default_avatar]

Sort::Key kann damit umgehen.

Derjenige, der zwei Hasen jagt, lässt einen zurück und verliert den anderen.

pKai

2005-08-31 23:57

User since
2005-02-18
357 Artikel
BenutzerIn
[default_avatar]

Die gesuchte sort-Funktion muss lauten:
"Wenn das Geschlecht gleich ist dann nach Alter, sonst nach Geschlecht".

Beispiel "zu Fuß":

Code: (dl )

my @array = map {my $l = $_; chomp $l; [split /\s/,$l]} <DATA>;
my @sarray = sort { $a->[2] eq $b->[2] ? $a->[1] <=> $b->[1] : $b->[2] cmp $a->[2] } @array;
_ _DATA_ _
name6 22 m
name1 17 w
name5 16 m
name4 14 m
name3 20 w
name2 18 w

Anm: Indices/Dereferenzierungen sind entsprechend an deine erale Datenstruktur anzupassen.\n\n

I sense a soul in search of answers.

Froschpopo

2005-09-01 01:57

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

mhh aber guck dir mal dein ergebnis an, da stimmt was bei der reihenfolge von den weibern nicht: 17,20,18...