#!/var/local/couch/bin/perl use CGI qw/:standard/; &header; open (FILE, "answers.txt"); @quiz_answers=; close (FILE); open (FILE, "quiz.txt"); @quiz_info=; close (FILE); $numQuestions = $quiz_info[0]; $correct = 0; for ($i=0;$i<$numQuestions;$i++) { $string="question".$i; $corAns=$quiz_answers[$i]; chomp($corAns); $userAns=param($string); $questNum=$i + 1; if ($userAns eq $corAns) { $correct++; print "$questNum. Correct Answer: $corAns Your Answer: ".param($string)." Correct!

\n"; } else { print "$questNum. Correct Answer: $corAns Your Answer: ".param($string)." Wrong!

\n"; } } $score = $correct / $numQuestions * 100; print "You got $score percent correct.

\n"; $currentdate=localtime; open (FILE, ">>scores.txt"); print FILE param("Name"); print FILE "\n"; print FILE $currentdate; print FILE "\n"; print FILE $score; print FILE "\n"; close (FILE); &footer; exit(0); sub header {# print the header for the HTML page print "Content-type: text/html", "\n\n"; print "\n"; print "\n"; } sub footer {# print the footer for the html page print ""; }