#!/usr/local/bin/perl use strict; use CGI; my $cgi = CGI->new(); my %uservars = $cgi->Vars(); $fehler = @anwort = (0,'B','D','B','A','C','D','D','B', 'B','D','B', 'C', 'A','D','C','C', 'A','C'); for (1..$#anwort) { $fehler-- if $uservars{"IQ$_"} eq $antwort[$_] } print "Content-type: text/html\n\n"; print < Testauswertung

Diese Auswertung zeigt nur die falschen Angaben in den jeweiligen Abschnitten:
Abschnitt 1) (logisches Denken figural)
$logischFig Fehler in 8 Aufgaben

Abschnitt 2) (logisches Denken verbal)
$logischVerb Fehler in 8 Aufgaben
Abschnitt 3) (räumliches Vorstellungsvermögen)
$raumlich Fehler in 4 Aufgaben
------------------------------------------------------------------------------------------ -----------

Ergebnis:
$falsch Antwort(en) von $#anwort Aufgaben sind falsch ....... EOF