genau strat und da ich jetzt mal vermute das die letzten beiden fragen wegsollen würde der code so aussehen:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/usr/local/bin/perl
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 <<EOF;
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
</head>
<BODY background="../back.jpg" text="#000000" bgcolor="#FFFFCC" link="#FF0000" vlink="#FF0000" alink="#FF0000">
<center><b><font size=+4>Testauswertung</font><br>
<br><font size=4>Diese Auswertung zeigt nur die falschen Angaben in den
jeweiligen Abschnitten:</font><font size=4></font>
<p><font size=4>Abschnitt 1) (logisches Denken figural)</font>
<br><font size=4><font color="#FF0000">$logischFig</font> Fehler in 8 Aufgaben</font><font size=4></font>
<p><font size=4>Abschnitt 2) (logisches Denken verbal)</font>
<br><font size=4><font color="#FF0000">$logischVerb</font> Fehler in 8 Aufgaben</font><font size=4></font>
<p><font size=4>Abschnitt 3) (räumliches Vorstellungsvermögen)</font>
<br><font size=4><font color="#FF0000">$raumlich</font> Fehler in 4 Aufgaben</font><font size=4></font>
<p><font size=4>-------------------------------------------------------------------------------------
----------------</font>
<br><font size=4>Ergebnis:</font>
<br><font size=4><font color="#FF0000">$falsch</font> Antwort(en) von 20
Aufgaben sind falsch .......</font><font size=4></font>
</center>
</body>
</html>
EOF
jetzt müsste man noch html + links anpassen aber dazu brauch ich wirklich mehr infos