<perl>
$anzahlspiele = $_amount_query;
get "Name<>_", "Training"; # Aufruf funktioniert nicht!!!!
while (get_next("Training")) # Holt die Einträge aus der DB
{
$gesamtpins = $gesamtpins + $Pins; # Addiert die Pins 
$gesamtstrike = $gesamtstrike + $Strike; #Addiert die Strikes
}
if($anzahlspiele>=1)
{
$schnitt = $gesamtpins/$anzahlspiele; # Berechnet den Schnitt und speichert ihn in der Variablen $schnitt
$zahl=123.5673;
$gerundet=sprintf('%.2f',$schnitt); # auf 2 nachkommastellen
}
{
out "Anzahl: $anzahlspiele Spiele<br>";
out "Summe: $gesamtpins Pins<br>";
out "Summe: $gesamtstrike Strike<br>";
out "Mittelwert: $gerundet Pins<br>"; # Gibt das Ergebnis aus
}
</perl>