Script Perl Amostra

# Perl
usar CGI;
$ Q = new CGI;
# Se os parâmetros passados para o script
# # # # # # # # # # # # # # # # # # #
$ Name = $ q-> param ('name'); 
$ TestName = $ q-> param ('TestName');
$ NumQuestions = $ q-> param ('NumQuestions');
PassingGrade $ = $ q-> param ('PassingGrade');
$ Marcar = $ q-> param ('Pontuação');
if ($ TestName eq "" | | $ numQuestions eq "")
{
 print "Content-type: text / html \ n \ n";
 imprimir "<html>";
 imprimir "<head> <title> Failure </ title> </ head>";
 imprimir "<body>";
 print "STATUS = 500";
 imprimir "<br>";
 print "Não foi possível analisar os resultados dos testes devido a um erro de parâmetro.";
 print "</ body> </ html>"; 
 exit 0;
}
# # # # # # # # # # # # # # # # # # # # # 
# Obter o tempo atual
# # # # # # # # # # # # # # # # # # # # # 
($ Seg, $ min, $ hora, $ mday, $ seg, $ ano, US $ wday, $ yday, $ isdst) 
= Localtime (time);
$ Ano = $ ano + 1900;
$ Seg = $ mon + 1;
$ CurrTime = "$ ano-$ mon-$ mday $ hour: $ min: $ sec";

# # # # # # # # # # # # # # # # # # # # #
# Abre o arquivo de dados de teste para anexar e escrever os dados
. # # # # # # # # # # # # # # # # # # # # # $ TestName = ". Log";
aberta (TESTDATA, ">> c: \ \ $ TestName") or die;
impressão TESTDATA "$ currTime $ name $ numQuestions $ passingGrade $ pontuação \ n";

# # # # # # # # # # # # # # # # # # # # #
# Campos mais antigos produzidos pelo programa utilizado um índice de base zero para o 
perguntas (ie Question0 é a primeira pergunta) '# cursos mais recentes são um 
base (ou seja, Question1 é a primeira pergunta) '
# Determinar qual deles é " 
# # # # # # # # # # # # # # # # # # # # # 
$ Startindex = 0;
$ Temp = $ q-> param ('
Question0 '); if ($ temp eq 
"")
{
 $ Startindex = 1;
}
$ Index = $ startindex;

# # # # # # # # # # # # # # # # # # # # #
# Escreva a todas as perguntas e respostas 
# # # # # # # # # # # # # # # # # # # # #
while ($ index <($ startindex + $ numQuestions)) {
 $ Qst = "Pergunta $ index"; $ ans = "Resposta $ index"; $ qval = $ q-> param
 ($ Qst); $ aval = $ q-> param ($ ans);
 impressão TESTDATA "$ qst: $ qval \ n";
 impressão TestData "$ ans: $ aval \ n";
 $ Index + = 1;
}

perto TESTDATA;
# # # # # # # # # # # # # # # # # # # # # # Resposta que deu certo
# # # # # # # # # # # # # # # # # # # # Print $ q-> header ();
print "STATUS = 200 \ r \ n";