Sorry if I'm not totally clear on this myself, but are you saying you are trying to use it without POST, GET or COOKIE usage? The solution might be to use a file named based on the user's ip.
--t ----- Original Message ----- From: "Jeff Borders" <[EMAIL PROTECTED]> To: <beginners@perl.org> Sent: Thursday, March 31, 2005 12:39 PM Subject: New to CGI.pm > I've written a perl program to quiz myself using a simple text file as > input. > > Input file: > > answer = question > answer = question > etc... > > When I try to convert this program to a cgi program to use from a web > browser, it will not pass the parameters back to the program after > drawing the page. I've tried saving the parameter to a variable. I > even tried pulling it from the param array, which it appears in. > > The program starts and presents a menu of test chapters, then after user > selection, it exits the program as if I finished the exam. > > Could someone give me some guidance? > > Thank you, > > Jeff Borders > > http://www.jeffborders.com/cgi-bin/korean-cgi.pl > > Listing below: > > ************************************************ > > #!/usr/bin/perl > > use warnings; > use CGI qw/-debug :standard/; > use CGI::Carp qw(fatalsToBrowser); > use CGI::Pretty qw(:html3); > > print header, > start_html('Korean Terminology'), > h1('Korean Terminology'), > start_form, > p,hr,p; > > foreach $name ( param() ) { > $value = param($name); > print "The value of $name is $value\n" > } > > $test=param('test'); > > if (param()) { > if ($test eq "9th Gup") { $test="9gup.txt"; } > elsif ($test eq "8th Gup") { $test="8gup.txt"; } > elsif ($test eq "7th Gup") { $test="7gup.txt"; } > elsif ($test eq "6th Gup") { $test="6gup.txt"; } > elsif ($test eq "5th Gup") { $test="5gup.txt"; } > elsif ($test eq "4th Gup") { $test="4gup.txt"; } > elsif ($test eq "3rd Gup") { $test="3gup.txt"; } > elsif ($test eq "2nd Gup") { $test="2gup.txt"; } > elsif ($test eq "1st Gup") { $test="1gup.txt"; } > elsif ($test eq "1st Dan") { $test="1dan.txt"; } > else { print "no such test name"; } > > &main_section(); > > } > else { > print h2('Choose test:'); > &choose_test(); > &process_test(); > } > > > print p,hr,p; > print end_form, end_html; > > > sub choose_test > { > print radio_group(-name=>'test', -value=>['9th Gup','8th Gup','7th > Gup','6th Gup','5th Gup','4th Gup','3rd Gup','2nd Gup','1st Gup','1st > Dan'], -cols=>4); > print p; > print submit(-name=>'test',-label=>'Enter'), > reset(-name=>'reset',-label=>'Cancel'); > print p; > $test=param('test'); > return $test; > } > > sub process_test > { > print p; > print "test = $test"; > print p; > print param('test'); > $number_of_questions=0; > open (DICT, $test) || die "Cannot open '$test' $!"; > while (<DICT>) { > chomp; > $number_of_questions++; > ($answer, $question) = split /\s*=\s*/; > $answer[$number_of_questions] = $answer; > $question[$number_of_questions] = $question; > } > close DICT; > print p; > print "number_of_questions = $number_of_questions\n"; > return $number_of_questions; > } > > sub main_section > { > $total=0; > $total++; > while ($total <= $number_of_questions || $response eq 'Cancel') > # || $total > $number_of_questions) > { > &pick_question(); > &pick_order(); > &print_question(); > &get_response(); > } > &print_result(); > print p; print "\ntotal number of questions = $number_of_questions\n"; > print p; print "\ntotal = $total\n"; > > } > > sub pick_question > { #Pick a unique question from list > do { > $random_question = 1 + int(rand($number_of_questions)); > } while ( grep (/$random_question/, @answered) ); > push @answered, $random_question; > return $random_question; > } > > sub pick_order > { #Pick which position to insert the correct answer. > $random_order = 1 + int(rand(4)); #returns an integer from (0..3) + 1. > return $random_order; > } > > sub print_question > { > print start_form, > "Question number $total of $number_of_questions",hr,p,"$question > [$random_question]",p; #Print the question. > my @temp_answers; > my $temp_answer; > push @temp_answers, $random_question; #This keeps the answer from > showing up twice on the same question. > for my $i (1..4) #Print the possible answers. > { > if ($i == $random_order) > { > #print correct value from array. > push @temp_answers, $answer[$random_question]; > } > else > { > ### Make sure that bogus answer does not equal answer or other 2 > bogus answers ### > do > { > $temp_answer = 1 + int(rand($number_of_questions)); > } while ( grep (/$temp_answer/, @temp_answers) ); > #print incorrect value from array. > push @temp_answers, $answer[$temp_answer]; > } > } > print radio_group(-name=>'answer', -value=>[EMAIL PROTECTED], -cols=>1); > $answers=param('answer'); > print p; > print submit(-name=>'answer',-label=>'Enter'), > reset(-name=>'reset',-label=>'Cancel'); > print p; > print end_form; > } > > sub get_response > { > $response=param('answer'); > if ($response eq 'Cancel') > { > print p; > $total--; > } > elsif ($response != $random_order) > { #print correct value from array. > print "-----> $question[$random_question] is $answer > [$random_question] <-----"; > print p; > $incorrect++; > } > return $response; > return $incorrect; > } > > sub print_result > { > print p,hr,p; > if ($total == 0) { > print "No questions answered."; > } > else > { > my $percent=eval (($total-$incorrect)/$total)*100; > printf "Out of %2d questions, you missed %2d for a grade of %3d%%", > $total, $incorrect, $percent; > print p; > print "You answered $total questions"; > } > } > > > > > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response> > > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
