Re: Multiple Choice Quiz


more useful options
	PerlMonks

Re: Multiple Choice Quiz

by spaz (Pilgrim)

on Feb 13, 2001 at 03:35 UTC ( [id://58026]=note: print w/replies, xml )

Need Help??

in reply to Multiple Choice Quiz

For your second version I'd suggest changing

while (<QSTNS>)    {
$_ =~ /^(Quiz)(\d)$/;
$max = $2;
}
[download]

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