Thread Wer hilft mir folgendes Script zu optimieren ??: Anfrage Hilfe (29 answers)
Opened by Gast at 2006-05-18 17:06

Gast Gast
 2006-05-18 17:06
#7680 #7680
Hallo zusammen..

Ich würde mich über eine "grosse" Hilfe freuen. Ich selber habe zwar eine grosse Website, kann aber kein Perl.
Vor ein paar Jahren, hat mir ein netter User ein Scipt geschrieben, das für Euch bestimmt lachhaft ist,-
Ich hab keine Ahnung - Konnte es nur einbinden und es funkte.:
In einem *html <form> werden 20 fragen an unten aufgelistetes Script " Auswertung.pl"
im cgi-bin übergeben.
Das Script zählt die richtigen Antworten ,(aus 3 Fragegruppen) und gibt eine einfache Auswertung aus.


Auf meiner Domain http://www.RalfNickolaus.de kann man sich dieses Skript in funkion anschauen.
Auf der Denksportseite unter "Logictest".-> http://www.RalfNickolaus.de/die_denksportseite.html


Nun zu meinem Anliegen : Wer kann mir das Script etwas umändern sodas :
1.) nur noch eine fragegruppe mit 20 Fragen abgearbeitet wird,
und...
2.) bei 18 oder mehr richtigen Antworten soll das Script auf eine andere *.html Seite linken
(bzw. einen Link anzeigen.)

Geht das ?....

(Weiß nicht ob`s wichtig ist ,aber.. das ganze läuft auf einem Windows Server...)




Hier ist das Script :
------------------------------------------------------------------------------------------

---
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
#!/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 <<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;
}




---------------------------------------------------------------------------------


Ich danke für Eure Zeit.


Wer mir hilft, dem ist Dank sicher, gebe gerne exclusive Werbung auf meiner Webseite - bin sonst werbefrei...
mit freundlichen Grüssen

RalfNickolaus


Edit Dubu: Code-Tags spendiert\n\n

<!--EDIT|Dubu|1147959031-->

View full thread Wer hilft mir folgendes Script zu optimieren ??: Anfrage Hilfe