Opened by Gast at 2006-05-18 17:06
User since
2004-03-22
5681 Artikel
ModeratorIn + EditorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2004-03-22
5681 Artikel
ModeratorIn + EditorIn
etwas mehr infos über das ganze währen nicht schlecht.
spontan würd ich das ganz erstmal zu folgendem optimieren:
die sache für weniger fragen zu kürzen ist nun wirklich ein kleines, aber welche fragen genau gekürzt werden müsst ich wissen.\n\n
<!--EDIT|lichtkind|1147971769-->
Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher
Es beginnt immer mit einer Entscheidung.
spontan würd ich das ganz erstmal zu folgendem optimieren:
Code: (dl
)
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#!/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 = 8;
$logischVerb = 8;
$raumlich = 4;
@anwort = (0,'B','D','B','A','C','D','D','B', 'B','D','B', 'C', 'A','D','C','C', 'A','C','E','E')
for (1..8) { $logischFig-- if $uservars{"IQ$_"} eq $antwort[$_] }
for (9..16) { $logischVerb-- if $uservars{"IQ$_"} eq $antwort[$_] }
for (17..20) { $raumlich-- if $uservars{"IQ$_"} eq $antwort[$_] }
$falsch = $raumlich + $logischVerb + $logischFig;
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
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;
}
die sache für weniger fragen zu kürzen ist nun wirklich ein kleines, aber welche fragen genau gekürzt werden müsst ich wissen.\n\n
<!--EDIT|lichtkind|1147971769-->
Tutorien in der Wiki, mein zeug:kephra, baumhaus, garten, gezwitscher
Es beginnt immer mit einer Entscheidung.