CGI/My First Form

#!/usr/bin/perl #Program name: perlscript print"Content-type: text/html\n\n"; #The HTTP header print" CGI/My First Form\n"; print"\n"; print"Processing CGI form:

"; $formvalues=$ENV{QUERY_STRING}; @formvalues=split("&",$formvalues); print"$formvalues[0]\n"; print "

"; print"$formvalues[1]\n"; print "

"; print"$formvalues[2]\n"; print "

"; @formvalues2=split("=",$formvalues[0]); $NumberOfTickets=$formvalues2[1]; @formvalues2=split("=",$formvalues[1]); $NumbersOnTickets=$formvalues2[1]; @formvalues2=split("=",$formvalues[2]); $HighestNumberOnTicket=$formvalues2[1]; print "$NumberOfTickets"; print "$NumbersOnTickets"; print "$HighestNumberOnTicket"; print "Your lottery ticket number are"; print "

"; for ($i_lottery=0; $i_lottery<$NumberOfTickets; $i_lottery++) { for ($i=0; $i<$NumbersOnTickets; $i++) { $lotto[$i]= int(rand($HighestNumberOnTicket)) + 1; } ($new, @lotto) >0; $new=@sorted; @sorted = sort { $a <=> $b } @lotto; print "@sorted"; print "

"; } print "\n";