Listing Total Right Wrong and Percentage? [closed] - perl

Question

It's difficult to tell what is being asked here. This question is ambiguous, vague, incomplete, overly broad, or rhetorical and cannot be reasonably answered in its current form. For help clarifying this question so that it can be reopened, visit the help center.
Closed 9 years ago.
Ok, for a school project I'm doing, I'm creating a little quiz in Perl,
#########################################
# Solar Game #
# #
# (C) 2013 Donovan Roudabush #
# GPU/Creative Commons #
# #
# sharksfan98#gmail.com #
# github.com/sharksfan98/solargame #
#########################################
print " _________ .__ ________ \n";
print " / _____/ ____ | | _____ _______ / _____/_____ _____ ____ \n";
print " \_____ \ / _ \| | \__ \\_ __ \ / \ ___\__ \ / \_/ __ \ \n";
print " / ( <_> ) |__/ __ \| | \/ \ \_\ \/ __ \| Y Y \ ___/ \n";
print "/_______ /\____/|____(____ /__| \______ (____ /__|_| /\___ > \n";
print " \/ \/ \/ \/ \/ \/ \n";
print "Version 1.0 Beta\n\n";
print "Developed by Donovan Roudabush\n";
print "https://github.com/sharksfan98/solargame\n\n";
print "Press enter to start\n";
$ok = <STDIN>;
chomp $ok;
print "Enter the number of players\n";
$num = <STDIN>;
chomp $num;
my #names;
for (1 .. $num) {
print "Please enter your name\n";
my $name = <STDIN>;
chomp $name;
push #names, $name;
}
print "Hello, Players! Have you played before? (Y/N)\n";
$exp = <STDIN>;
chomp $exp;
if ($exp == Y) {
print "Ok! The game will begin.\n";
print "Press Enter to begin the questions\n\n";
}
if ($exp == N) {
print "Then I will explain the rules\n";
$ok2 = <STDIN>;
chomp $ok2;
} # Add rules here later
print "Part 1: Measurements\n\n";
print "Question 1\n";
print "What measurement is used to measurements within our Solar System?\n\n";
print "A) Astronomical Unit (AU)\n";
print "B) Light Year\n";
print "C) Parsec\n";
$q1 = <STDIN>;
chomp $q1;
if ($q1 == A) {
print "Correct!\n\n";
}
if ($q1 == B) {
print "Wrong!\n\n";
}
if ($q1 == C) {
print "Close! The Parsec is only used by Professionals, like NASA\n\n";
}
print "Question 2\n\n";
print "What do you use to measure farther objects, like stars and galaxies?\n";
print "A) Astronomical Unit (AU)\n";
print "B) Light Year\n";
print "C) Parsec\n";
$q2 = <STDIN>;
chomp $q2;
if ($q2 == A) {
print "Wrong!\n\n";
}
if ($q2 == B) {
print "Correct!\n\n";
}
if ($q2 == C) {
print "Wrong!\n\n";
}
print "Question 3\n";
print "Which measurement would you use to measure Earth to the Sun?\n\n";
print "A) Astronomical Unit (AU)\n";
print "B) Light Year\n";
print "C) Parsec\n";
$q3 = <STDIN>;
chomp $q3;
if ($q3 == A) {
print "Correct!\n\n";
}
if ($q3 == B) {
print "Wrong!\n\n";
}
if ($q3 == C) {
print "Wrong!\n\n";
}
print "Question 4\n";
print "Which measurement would you use measure the Sun to Polaris?\n\n";
print "A) Astronomical Unit (AU)\n";
print "B) Light Year\n";
print "C) Parsec\n";
$q4 = <STDIN>;
chomp $q4;
if ($q4 == A) {
print "Correct!\n\n";
}
if ($q4 == B) {
print "Wrong!\n\n";
}
if ($q4 == C) {
print "Wrong!\n\n";
}
print "Question 5\n";
print "Which would you use to measure Earth to Uranus?\n\n";
print "A) Astronomical Unit (AU)\n";
print "B) Light Year\n";
print "C) Parsec\n";
$q5 = <STDIN>;
chomp $q5;
if ($q5 == A) {
print "Correct!\n\n";
}
if ($q5 == B) {
print "Wrong!\n\n";
}
if ($q5 == C) {
print "Wrong!\n\n";
}
At the end of my code, I want to calculate and list the amount of questions right and wrong, and the percentage right. How do I go about doing this?

Answer 1

You could have a variable that gets incremented each time a question is answered correctly, and one that's incremented each time that a question is answered incorrectly.
my $correct = 0;
my $incorrect = 0;
...
if ($q1 eq 'A') {
print "Correct!\n\n";
$correct++;
} else {
print "Wrong!\n\n";
$incorrect++;
}
print "Percentage: ", int($correct/($correct + $incorrect) * 100 + 0.5), "%\n";
You can't use bare words like A to compare text. Use the string equals operator (eq) with a string. Like $q1 eq 'A'. You can also use an else block instead of comparing with everything else.
You actually only need a variable for the number of questions answered correctly if you're going to have a fixed number of questions, because then $incorrect will be the same as (total questions) - $correct, and $correct + $incorrect will always be the total number of questions.