Multiple Choice Quiz

This is my first posting so go easy! Basically it reads a text file for questions,choice of answers, and correct answers. Displayed in a browser the quiz will then count responses and give a score whilst logging details to a file. It's version1, not well commented and I will be posting version2 soon. I just couldn't wait to share it!


#!/usr/bin/perl -w
# my quiz

use strict;
use CGI qw(param);

my $max;
my @question;
my @correct;
my @answer;
my $i = "0";
my $j = "0";
my $k = "0";
my $score = "0";
my (@A, @B, @C, @D);

    
my $who = param("name");
my $surname = param("surname");

open(QSTNS, "questions.txt") || die "cannot open questions.txt $!";
while (<QSTNS>)    {
$_ =~ /^(Quiz)(\d)$/;
$max = $2;
}
close(QSTNS) || warn "cannot close questions.txt $!";

while ($k < $max)    {
push (@answer,param("answer$k"));
$k++;
}

print <<Firstbit;
Content-type: text/html

<HTML><HEAD><TITLE>Quiz</TITLE></HEAD>
<BODY><H1>WELCOME TO MY QUIZ!</H1>

Firstbit
    
if (param())    {
    open(QSTNS, "questions.txt") || die "cannot open questions.txt $!"
+;
        while(<QSTNS>)    {
                if ($_ =~ /^A\d:/)    {
                    chomp;
                    s/A\d://;
                    push (@correct,$_);    
                }
        }
    close(QSTNS) || warn "cannot close questions.txt $!";

    while ($j < $max)    {
        if ($answer[$j] eq $correct[$j])     {
        $score++;    
        #print "<P>score: $score";
        }
    #print "<P>j: $j";
    $j++;
    
    }
    
    #print "<P>@correct, @answer";
    print "<p>$who $surname, you scored $score";
    open(LOGS, ">>log.txt") || die "cannot append log.txt $!";
    print LOGS "$who $surname scored $score\n";
    close(LOGS);
}
else    {
    open(QSTNS, "questions.txt") || die "<P>cannot open questions.txt 
+$!";
        while(<QSTNS>)    {
            if ($_ =~ /^Q\d/)    {
                chomp;
                push (@question,$_);    
            }
            if ($_ =~ /^C\d:/)    {
                chomp;
                s/C\d://;
                $_ =~ /([^,]+),([^,]+),([^,]+),([^,]+)/;
                                push (@A,$1);
                                push (@B,$2);
                                push (@C,$3);
                                push (@D,$4);
            }

        }

#print "<P>A:  @A";
    close(QSTNS);
    
print <<Startform;
    <FORM>
    <P>Please enter your first name:
    <INPUT TYPE="TEXT" NAME="name">
    <P>Please enter your surname:
    <INPUT TYPE="TEXT" NAME="surname">
    
Startform
    while ($i < $max)    {
        
print <<Loop;
    <P>$question[$i]
    <BR>

    &nbsp; &nbsp; &nbsp; &nbsp;<INPUT TYPE="RADIO" NAME="answer$i" VAL
+UE="$A[$i]">$A[$i]<BR>
    &nbsp; &nbsp; &nbsp; &nbsp;<INPUT TYPE="RADIO" NAME="answer$i" VAL
+UE="$B[$i]">$B[$i]<BR>
    &nbsp; &nbsp; &nbsp; &nbsp;<INPUT TYPE="RADIO" NAME="answer$i" VAL
+UE="$C[$i]">$C[$i]<BR>
    &nbsp; &nbsp; &nbsp; &nbsp;<INPUT TYPE="RADIO" NAME="answer$i" VAL
+UE="$D[$i]">$D[$i]<BR>

Loop

    $i++;
    }

print <<Endform
    <P>
    <INPUT TYPE="SUBMIT" VALUE="Send Answers"> 
    <INPUT TYPE="RESET" VALUE="Clear Answers">
    </FORM>
    
Endform

}
print <<Endbit;
</BODY></HTML>

Endbit
[download]

####################################
#The questions.txt file should be formatted as follows
######################################
Quiz5
Q1.    What is the capital of Afghanistan?
C1:Tirana,Grozny,Kabul,Tblisi
A1:Kabul
Q2.    What is the capital of Albania?
C2:Tirana,Grozny,Kabul,Tblisi
A2:Tirana
Q3.    What is the capital of Chechnya?
C3:Tirana,Grozny,Kabul,Tblisi
A3:Grozny
Q4.    How many balls on a snooker table at the break off?
C4:15,21,22,25
A4:22
Q5.    What's the nearest planet to the Sun?
C5:Earth,Venus,Mercury,Pluto
A5:Mercury
[download]

Comment on Multiple Choice Quiz Select or Download Code

Replies are listed 'Best First'.
Re: Multiple Choice Quiz by spaz (Pilgrim) on Feb 13, 2001 at 03:35 UTC
For your second version I'd suggest changing `while (<QSTNS>) { $_ =~ /^(Quiz)(\d)$/; $max = $2; }` [download] to `while (<QSTNS>) { ($max) =~ /Quiz(\d)/; }` [download] It's more Perlish and clearer. Also, `$_ =~ /([^,]+),([^,]+),([^,]+),([^,]+)/; push (@A,$1); push (@B,$2); push (@C,$3); push (@D,$4);` [download] could be much more efficent using split. -- Dave	[reply] [d/l] [select]
Re: Multiple Choice Quiz by repson (Chaplain) on Feb 13, 2001 at 12:49 UTC
I've made a version of this program before, but with a few extra features you might like to consider (many depend on what the questionnaries involve and your preferences on these matters). one question per page different correct/incorrect responces for different answers you picked arbitary number of answers per question weighted answers for degree of rightness questions selected from a pool, so redoing the questionnarie will show mostly/totally new questions multiple questionnaries available through the same program browser based configuration of questionnaries, questions and answers to allow non coders to admin tests in a user friendly manner a relational database to make all the above possible while retaining code sanity Of course none of these things are at all necessary, they just add to the feature list/novelty/usefulness/etc...	[reply]