Prov Perl-skript

#! Perl
använda CGI;
$ Q = nya CGI;
# Få de parametrar som skickas till skriptet
# # # # # # # # # # # # # # # # # # #
$ Name = $ q-> param ('namn'); 
$ TestName = $ q-> param ('TestName');
$ NumQuestions = $ q-> param ('NumQuestions');
$ PassingGrade = $ q-> param ('PassingGrade');
$ Poäng = $ q-> param ('Poäng');
if ($ testName eq "" | | $ numQuestions eq "")
{
 print "Content-Type: text / html \ n \ n";
 print "<html>";
 print "<head> <title> Fel </ title> </ head>";
 print "<body>";
 print "STATUS = 500";
 print "<br>";
 print "Kunde inte tolka testresultat på grund av en parameter fel.";
 print "</ body> </ html>"; 
 exit 0;
}
# # # # # # # # # # # # # # # # # # # # # 
# Få den aktuella tiden
# # # # # # # # # # # # # # # # # # # # # 
($ Sek, $ min, $ timme, $ MDAY, $ mon, $ år, $ WDAY, $ yday, $ isdst) 
= Localtime (tid);
$ År = $ år + 1900;
$ Mon = $ mon + 1;
$ Currtime = "$ år-$ mon-$ MDAY $ timmen: $ min: $ sec";

# # # # # # # # # # # # # # # # # # # # #
# Öppnar testdata fil för append och skriva data
. # # # # # # # # # # # # # # # # # # # # # $ TestName = ". Log";
öppen (testdata, ">> c: \ \ $ testName") or die;
print testdata "$ currtime $ namn $ numQuestions $ passingGrade $ poäng \ n";

# # # # # # # # # # # # # # # # # # # # #
# Äldre kurser som produceras av programmet används en nollbaserat index för 
frågor (dvs. Question0 är den första frågan) "# Nyare kurser är en 
baserade (dvs. Question1 är den första frågan)
# Avgöra vilket som det är " 
# # # # # # # # # # # # # # # # # # # # # 
$ Startindex = 0;
$ Temp = $ q-> param ('
Question0 '); if ($ temp eq 
"")
{
 $ Startindex = 1;
}
$ Index = $ startindex;

# # # # # # # # # # # # # # # # # # # # #
# Skriv ut alla frågor och svar 
# # # # # # # # # # # # # # # # # # # # #
while ($ index <($ startindex + $ numQuestions)) {
 $ Qst = "Fråga $ index", $ ans = "Svara $ index", $ qval = $ q-> param
 ($ QST), $ aval = $ q-> param ($ ans);
 print testdata "$ QST: $ qval \ n";
 print testdata "$ ans: $ aval \ n";
 $ Index + = 1;
}

nära testdata;
# # # # # # # # # # # # # # # # # # # # # # Svar att det fungerade
# # # # # # # # # # # # # # # # # # # # Print $ q-> header ();
print "STATUS = 200 \ r \ n";