Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
#!/usr/bin/perl -w ############################################### ## Name: QuizTaker ## ## Version: 1.08 ## ## Author: Thomas Stanley ## ############################################### use strict; use File::Slurp; use Text::Wrap; my $A=0; my $Choice; while($A == 0){ system('clear'); print"\n"; print"\t\t ******************************* \n"; print"\t\t *** QuizTaker.pl *** \n"; print"\t\t *** Version 1.08 *** \n"; print"\t\t *** by Thomas Stanley *** \n"; print"\t\t ******************************* \n"; print"\n"x4; print"\t\t\t\t1) Take a test\n"; print"\t\t\t\t2) Exit\n"; print"\n\n"; print"\t\t\t\tYour choice: "; $Choice = <STDIN>; chomp($Choice); my $B = 0; while($B == 0){ if($Choice == 1){ &Choose(); $B=1; }elsif($Choice == 2){ print"\n\n\t\t\t\tThanks for playing!\n"; $A = 1; } $B = 1; } } ############################## sub Choose{ system('clear'); my %File_Lengths=(); my %NumberOfTests=(); my $Choice; my $MaxQuestions; my $Length; my $File; my $C; my $D = 1; my $H = 0; my $I = 0; my $refFile_lengths = GetFileLengths(\%File_Lengths); foreach $C(keys %File_Lengths){ $C=~s/\.\w{3}//; $NumberOfTests{$D} = $C; $D++; } print"\n"; foreach $C(keys %NumberOfTests){ print"\t\t\t$C) $NumberOfTests{$C}\n"; } while($H == 0){ print"\n\t\t\tEnter the test number: "; my $number = <STDIN>; chomp $number; $Choice = "$NumberOfTests{$number}.psv"; if(exists $NumberOfTests{$number}){ while($I == 0){ print"\n\t\tHow many questions do you wish to answer (Max = $F +ile_Lengths{$Choice}): "; my $MaxQuestions = <STDIN>; chomp $MaxQuestions; if(($MaxQuestions<1)||($MaxQuestions>$File_Lengths{$Choice})){ print"\n\n\t\tPlease re-enter the number of questions."; sleep(2); }else{ $Length = $File_Lengths{$Choice}; &Randomize($Choice,$Length,$MaxQuestions); $I = 1; } } }else{ print"\n\t\tPlease choose again!!\n\n"; sleep(2); } $H = 1; } return; } ################################## sub GetFileLengths{ my $File_Lengths = shift; my $Directory = "./Questions"; my $File; my @Files = read_dir($Directory); my $Check; my $path; foreach $File(@Files){ if($File=~/\.psv/){ $path = $Directory."/".$File; $Check = Check($path); if($Check<1){}else{ $$File_Lengths{$File} = $Check; } } } my $number = keys %$File_Lengths; if($number == 0){ die"No files available\n"; } return $File_Lengths; } ############################# sub Check{ my $file=shift; my $lines; if(-e $file){ $lines =`wc -l < $file`; }else{ die"Can't find $file!\n"; } return $lines; } ############################# sub Randomize{ my $File = shift; my $FileLength = shift; my $Max = shift; my $Directory = "./Questions"; my %Randoms = (); my %Data=(); my %TestQuestions=(); my %TestAnswers=(); srand(); my $Path = $Directory."/".$File; my $ref=Loader(\%Data,$Path); for(1..$Max){ my $question_number = int(rand($FileLength)+1); redo if exists ($Randoms{$question_number}); $Randoms{$question_number} = 1; } my @Randoms = keys %Randoms; my $ref2=shuffle(\@Randoms); for(my $a=0;$a<$Max;$a++){ $TestAnswers{$Randoms[$a]} = pop@{$Data{$Randoms[$a]}}; $TestQuestions{$Randoms[$a]} = $Data{$Randoms[$a]}; } my %QuestionLength = (); my $b; foreach my $key (keys %TestQuestions){ $b = @{$TestQuestions{$key}}; $QuestionLength{$key} = $b; } &Tester(\%TestQuestions,\%TestAnswers,\@Randoms,\%QuestionLength,$Ma +x); return; } ###################### sub Loader{ my $Data=shift; my $file=shift; my $question_number; my $length; my $f; my @Sorter=(); open(FH,"$file")||die"Can't open $file: $!\n"; while(<FH>){ @Sorter=split /\|/; $question_number=shift @Sorter; $length=@Sorter; for($f=0;$f<$length;$f++){ $$Data{$question_number}[$f]=$Sorter[$f]; } } close FH; return $Data; } ########################## sub Tester{ my $Questions=shift; my $Answers=shift; my $Randoms=shift; my $question_length=shift; my $Max=shift; my $length; my $question_number=1; my $question_answer=""; my $answer; my $number_correct=0; my $key; my $g; system('clear'); print"\n"; while($question_number<=$Max){ $key=shift @$Randoms; $length=$$question_length{$key}; print"Question Number $question_number\n"; for($g=0;$g<$length;$g++){ print wrap("","","$$Questions{$key}[$g]\n"); } print"\nYour answer: "; $answer=<STDIN>; chomp $answer; $answer=uc $answer; $question_answer=$$Answers{$key}; chomp $question_answer; $question_answer = uc $question_answer; if($answer eq $question_answer){ print"That is correct!!\n\n"; $question_number+=1; $number_correct+=1; }else{ print"That is incorrect!\n"; print"The correct answer is $question_answer.\n\n"; $question_number+=1; } } &Final_Score($number_correct, $Max); return; } ########################### sub Final_Score{ my $Correct=shift; my $Max=shift; my $Percentage=($Correct/$Max)*100; print"You answered $Correct out of $Max correctly.\n"; printf"For a final score of %.2f%%\n",$Percentage; sleep(4); return; } # # Fisher-Yates Shuffle # sub shuffle { my $array = shift; my $i; for ($i = @$array; --$i; ) { my $j = int rand ($i+1); next if $i == $j; @$array[$i,$j] = @$array[$j,$i]; } } __END__; =pod =head1 QuizTaker.pl Version 1.08 This program will allow you to take simple tests, based upon a file of questions and answers that you create. A sample file of questions have been included with this distribution, so you can see how its done. The values are stored within the file, with the pipe character "|" as a separator. Please ensure that you have an extension of .psv on the end of your question/answer files. To run this program, type the following at the command prompt in the directory where you have installed QuizTaker: ./QuizTaker.pl This program also requires the File::Slurp module which can be found on your nearest CPAN mirror. =head2 Improvements =over 4 =item 1 Now includes this section of POD =item 2 Now uses the Text::Wrap module found in the core distribution of Perl, to wrap the lines of long questions =item 3 Now has a menu based interface, and allows you to choose which test you would like to take. =item 4 Cleaned up some syntax within the functions to make them look better =item 5 Fixed a bug where if the letter in the answer file is in lowercase, it would break in the Test subroutine. =item 6 Implemented the Fisher-Yates shuffling algorithm to provide for a more random sequence in the array of questions =back =head2 To Do List =over 4 =item 1 Make a graphical user interface using the Tk module =back =head2 Questions/Comments If you have any questions or comments about this program please email me at Thomas_J_Stanley@msn.com . I am always striving to make this program better. =cut

In reply to QuizTaker.pl by TStanley

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others contemplating the Monastery: (13)
    As of 2014-07-24 09:32 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      My favorite superfluous repetitious redundant duplicative phrase is:









      Results (158 votes), past polls