Opened by Gast at 2006-05-18 17:06
User since
2004-03-22
5701 Artikel
ModeratorIn + EditorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2004-03-22
5701 Artikel
ModeratorIn + EditorIn
kein grund jeder fängt bei 0 an, mom code kommt gleich
\n\n
<!--EDIT|lichtkind|1148062368-->
Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher
Es beginnt immer mit einer Entscheidung.
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
#!/usr/local/bin/perl
use strict;
use CGI;
my $cgi = CGI->new();
my %uservars = $cgi->Vars();
my @anwort = qw(0 B D B A C D D B B D B C A D C C A C);
my $richtig;
for (1..$#anwort) { $richtig++ if $uservars{"IQ$_"} eq $antwort[$_] }
if ($richtig >= 18) { print $cgi->redirect("richtig.html") }
else {
print $cgi->header();
print <<EOF;
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html><head>
<style type="text/css"><!--
body {font-size:18px; }
--></style>
</head>
<BODY background="../back.jpg" text="#000000" bgcolor="#FFFFCC" link="#FF0000" vlink="#FF0000" alink="#FF0000">
<center><b><font size=+4>Testauswertung</font><br><br>Ergebnis:<br>
<font color="#FF0000">$richtig</font> Antwort(en) von $#antwort Aufgaben sind richtig .......
</center>
</body>
</html>
EOF;
}
<!--EDIT|lichtkind|1148062368-->
Tutorien in der Wiki, mein zeug:kephra, baumhaus, garten, gezwitscher
Es beginnt immer mit einer Entscheidung.