I have a test maker script , that generates random questions from a DB
My grader script needs to grade those same random questions
it has a variable that called $questions_asked
its output is like this !146!612!145!385!655!34!122!583!119!109
the code
#! /usr/bin/perl
#user grading script
#
# May 23, 2002 ver 0.03
require "subparseform.lib";
&Parse_Form;
$test = $formdata{'test12'};
$sname = $formdata{'name'};
$date1 = $formdata{'date1'};
$numofques = $formdata{'numofques'};
$questions_asked = $formdata{'admin_test'};
###
# make Page
print "content-type: text/html\n\n";
print "\n";
print "\n";
print "\n";
print "//--+\n";
print "// SmartMenus v.1 |\n";
print "// \©2001 VASIL DINKOV - PLOVDIV, BULGARIA |\n";
print "// <http://mp3.dinkov.com> http://mp3.dinkov.com | vasko\@dinkov.com
|\n";
print "//--+\n";
print "// For Internet Explorer 4 and Netscape 6 |\n";
print "//--+\n\n";
print "//==1==Defining Colors\n";
print "var menuFrameColor=\'#4d4c76\'\;\n";
print "var menuBgColor=\'#bebddf\'\;\n";
print "var menuOverBgColor=\'#fff5c6\'\;\n";
print "var menuFontColor=\'#4d4c76\'\;\n";
print "var menuOverFontColor=\'#4d4c76\'//(can be the same as
menuFontColor)\n\n
";
print "//==2==Defining TARGET for the links in the menu\n";
print "var target=\'self\'//(newWindow or self)(cannot navigate to
frame)\n\n";
print " //==3==Defining font, menu cell padding & frame border width\n";
print "var font=\'verdana,arial,helvetica\'\;";
print "var fontSize=\'10px\'\;\n";
print "var fontWeight=\'bold\'\;//(bold or normal)\n";
print " var cellPadding=\'2\'\;\n";
print " var frameBorderWidth=\'1\'\;\n";
print " //==4==Defining The Menus Width\n";
print " var menuWidth=\'140\'\;\n";
print " //==5==Defining The Menus Placement (top left corner of the
menus)\n";
print "var menuTopPixels=15\;//from document top & left corner(without
quotes)\n
";
print " var menu1LeftPixels=0\;\n";
print " var menu2LeftPixels=74\;\n";
print " var menu3LeftPixels=144\;\n";
print "var menu4LeftPixels=226\;\n";
print " var menu5LeftPixels=296\;\n";
print " //var menu6LeftPixels=400\;//(if you want more add like this)\n";
print "//==6==Defining The Menus Count (how many do you want)\n";
print " var menuCount=2\;//(without quotes)\n";
print " //=MENU DEFINITIONS=\n";
print " //(be sure to have the same number of array items for both href &
text)\n";
print " //===Menu 1\n";
print "href1=new Array(\'nam.cgi\',\'addmaterial.cgi\',\'adduser.php\',";
print "\'\')\;\n";
print " text1=new Array(\'Add a Patron\',\'Add Material\',\'Add a User\',";
print "\'Edit a User\')\;\n";
print "function MV1(){var x=\'\'\;for(i=0\;i| \"+text1[i]+\" | ";
print "\"}\;return x}\;\n";
print " //===Menu 1 END \n\n\n";
print "//===Menu 2\n";
print " href2=new Array(\'checkout_report.cgi\')\;\n";
print " text2=new Array(\'Checkout Report\')\;\n\n";
print " function MV2(){var x=\'\'\;for(i=0\;i\"+text2[i]+\" | ";
print "\"}\;return x}\;\n";
print " //===Menu 2 END \n\n\n";
print "//=MENU DEFINITIONS END= \n";
print "// THE SERIOUS SCRIPT PLEASE DO NOT TOUCH\n";
print "if(document.all){topY=menuTopPixels}else{topY=menuTopPixels-2}\;";
print "/*NS bud*/function rV(){q=\'\'\;for(z=1\;z<=menuCount\;z++)";
print "{if(document.all){q=q+\"m\"+z+\".style.display=\'none\'\;\"}";
print
"else{q=q+\"document.getElementById(\'m\"+z+\"\').style.display=\'none\'\;\"
}}\;return q}\;";
print "eval(\"function hide(a){if(a.clientY<=topY){\"+rV()+\"}}\;";
print "function hide2(){\"+rV()+\"}\")\;eval(\"function ov(ok)";
print "{ok.style.background=\'\"+menuOverBgColor+\"\'\;ok.style.";
print "color=\'\"+menuOverFontColor+\"\'}\;function ou(ok)";
print "{ok.style.background=\'\"+menuBgColor+\"\'\;ok.style.";
print "color=\'\"+menuFontColor+\"\'}\;function doGo(ok)";
print "{var tgt=\'\"+target+\"\'\;if(tgt==\'newWindow\'){window.open(ok)";
print "}else{document.location.href=ok}}\;function
show(a){if(document.all)";
print "{eval(a).style.display=\'\'}else{document.getElementById(a).style.";
print "display=\'\'}}\")\;document.write(\"