@daten = sort {x($a) <=> x($b)} @daten;
sub x
{
($nicht1,$nicht2,$nicht3,$wichtig,..) = split(/,/,$daten[ ??? ]);
$a = $wichtig;
}
Versteh ich nicht so recht!? ;-/ *grübel
nicht angemeldet nicht angemeldet@daten = sort {x($a) <=> x($b)} @daten;
sub x
{
($nicht1,$nicht2,$nicht3,$wichtig,..) = split(/,/,$daten[ ??? ]);
$a = $wichtig;
}
Versteh ich nicht so recht!? ;-/ *grübel