|
#!/usr/bin/perl print"Content-type:text/html\n\n"; $fname = "quizjava.txt"; open(fn, "<$fname" ); @bfn = <fn>; close(fn); $cntr = @bfn; $rand = $^T; $dif = ($rand % 99) + 13; for $r (1..10) { $ind = (($rand / ($dif + $r)) + $r * 3) % $cntr; push @keepar,$bfn[$ind]; } print'<body>ข้อสอบกึ่งอัตโนมัติ แบบตอบแล้วเฉลยทีละข้อทันที'; print'<form method=post action=quizjava.pl>'; for $j (0..9) { @recq = split (',',$keepar[$j]); print $j+1,". $recq[1]<ul>"; print "<input type=radio onclick=$recq[0](1) name=q$recq[0]>$recq[2]<br>"; print "<input type=radio onclick=$recq[0](2) name=q$recq[0]>$recq[3]<br>"; print "<input type=radio onclick=$recq[0](3) name=q$recq[0]>$recq[4]<br>"; print "<input type=radio onclick=$recq[0](4) name=q$recq[0]>$recq[5]<br>"; print "<script language=JavaScript>\n"; print "function $recq[0](value) {\n"; print "if (value == ",substr($recq[6],0,1),") {alert('Right');}"; print "else {alert('Wrong');}\n"; print "}\n"; print "</script>\n"; print "</ul>"; } print'<hr><input type=submit name=submit value=New_quiz>'; print'</form></body></html>'; |