Beitrag von Joerg (159 Beiträge) am Sonntag, 13.Juni.2004, 11:17.
Toto Ranking
Hallo!
Ich habe ein Totospiel und möchte aus einer Tabelle eine Rangliste erstellen.
Jeder Mitspieler bekommt pro richtigen Tipp ein Punkt, der der Tabelle ranking hinzugefügt wird.
Nun soll die tabelle folgendermaßen aussehen:
1 Joerg 50 Punkte
2 Hansi 45 Punkte
2 Peter 45 Punkte
4 Petra 40 Punkte
Eine Rangliste habe ich schon, allerdings ohne den jeweiligen Platz:
<perl>
get "Name==*","rangliste";
while (get_next("rangliste"))
{
$anzahl{$Name}++;
}
%temp=%anzahl;
@sortiert=sort { $temp{$a} <=> $temp{$b} } keys %temp;
@reversed=reverse @sortiert;
foreach (@reversed)
{
out "<td><div style=font:8pt face:arial><font color=#FFBE00>$_</td><td valgin=\"right\"><div style=font:8pt face:arial><font color=#FFBE00>$anzahl{$_} Pkt.</td></tr>";
}
</perl>
Kann mir jemand weiterhelfen??
Jörg