#!/usr/local/bin/perl #In der ersten Zeile nach #! ist der Pfad eingetragen, an dem sich perl.exe befindet. %uservars = &read_query_string; #Lesen der eingegebenen Felder in %uservars $logischFig = 0; $logischVerb = 0; $raumlich = 0; #Start der Auswertung der logisch-figuralen Fragen if ($uservars{'IQ01'} eq 'B') { $logischFig = $logischFig+1; }; if ($uservars{'IQ02'} eq 'D') { $logischFig = $logischFig+1; }; if ($uservars{'IQ03'} eq 'B') { $logischFig = $logischFig+1; }; if ($uservars{'IQ04'} eq 'A') { $logischFig = $logischFig+1; }; if ($uservars{'IQ05'} eq 'C') { $logischFig = $logischFig+1; }; if ($uservars{'IQ06'} eq 'D') { $logischFig = $logischFig+1; }; if ($uservars{'IQ07'} eq 'D') { $logischFig = $logischFig+1; }; if ($uservars{'IQ08'} eq 'B') { $logischFig = $logischFig+1; }; #Ende logisch-figurale Fragen #Start der Auswertung der logisch-verbalen Fragen if ($uservars{'IQ09'} eq 'B') { $logischVerb = $logischVerb+1; }; if ($uservars{'IQ10'} eq 'D') { $logischVerb = $logischVerb+1; }; if ($uservars{'IQ11'} eq 'B') { $logischVerb = $logischVerb+1; }; if ($uservars{'IQ12'} eq 'C') { $logischVerb = $logischVerb+1; }; if ($uservars{'IQ13'} eq 'A') { $logischVerb = $logischVerb+1; }; if ($uservars{'IQ14'} eq 'D') { $logischVerb = $logischVerb+1; }; if ($uservars{'IQ15'} eq 'C') { $logischVerb = $logischVerb+1; }; if ($uservars{'IQ16'} eq 'C') { $logischVerb = $logischVerb+1; }; #Ende der logisch-verbalen Fragen #Start der Auswertung der räumlichen Vorstellung if ($uservars{'IQ17'} eq 'A') { $raumlich= $raumlich+1; }; if ($uservars{'IQ18'} eq 'C') { $raumlich= $raumlich+1; }; if ($uservars{'IQ19'} eq 'E') { $raumlich= $raumlich+1; }; if ($uservars{'IQ20'} eq 'E') { $raumlich= $raumlich+1; }; #Ende der Fragen zur räumlichen Vorstellung $falsch = 20 - $raumlich - $logischVerb - $logischFig; $logischFig=8-$logischFig; $logischVerb=8-$logischVerb; $raumlich=4-$raumlich; 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 20 Aufgaben sind falsch .......
EOF sub read_query_string { local ($buffer, @pairs, $pair, $name, $value, %FORM); # Read in text $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { # this is a "GET method $buffer = $ENV{'QUERY_STRING'}; } # else @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%(..)/pack("C", hex($1))/eg; $FORM{$name} = $value; } # foreach %FORM; }