my @sorted_list = map { $_->[0] }
sort { $a->[1] <=> $b->[1] ||
$a->[2] cmp $b->[2] }
map { [ $_, $_->[0], $_->[3] ] } @list;
Diesmal richtig, aber, wie schon erwähnt, völlig überflüssig, da du ja keine komplizierten Berechnungen machst.
Struppi.
my @sorted_list = map { $_->[0] }
sort { $a->[1] <=> $b->[1] ||
$a->[2] cmp $b->[2] }
map { [ $_, $_->[0], $_->[3] ] } @list;
Diesmal richtig, aber, wie schon erwähnt, völlig überflüssig, da du ja keine komplizierten Berechnungen machst.
Struppi.