#!/usr/bin/perl
use CGI ':standard';
print header;
####################
# Written by Omar #
# Fall 2013 #
####################
########Scalar Varibles #########
$g1 = param('g1');
$g2 = param('g2');
$g3 = param('g3');
$g4 = param('g4');
$g5 = param('g5');
$g6 = param('g6');
####### Main Script ########
⊤
if($g1 eq '' && $g2 eq '' && $g3 eq '' && $g4 eq '' && $g5 eq '' && $g6 eq ''){
&form;
}else{
&divisor;
&cal;
&mistake;
&letter;
&display;
}
print end_html;
####### Subroutines ########
sub letter{
if($average >= 93){
$letter="A";
$message="Really Great Job!";
}elsif($average >= 90){
$letter="A-";
$message="Great Job!";
}elsif($average >= 88){
$letter="B+";
$message="Really Good Job!";
}elsif($average >= 83){
$letter="B";
$message="Good Job!";
}elsif($average >= 80){
$letter="B-";
$message="Nice Job!";
}elsif($average >= 77){
$letter="C+";
$message="OK job!";
}elsif($average >= 73){
$letter="C";
$message="ITs Done!";
}elsif($average >= 70){
$letter="C-";
$message="Just Barely!";
}elsif($average >= 67){
$letter="D+";
$message="Not Good enough!";
}elsif($average >= 63){
$letter="D";
$message="Not Trying!";
}else{
$letter="F";
$message="Time to tink about another program!";
}
}
sub cal{
$total = $g1+$g2+$g3+$g4+$g5+$g6;
$average = $total/$divisor;
}
sub mistake{
if($g1 > 100){$message1= "check Grade";}
if($g2 > 100){$message2= "check Grade";}
if($g3 > 100){$message3= "check Grade";}
if($g4 > 100){$message4= "check Grade";}
if($g5 > 100){$message5= "check Grade";}
if($g6 > 100){$message6= "check Grade";}
}
sub divisor{
if($g1 ne ''){$divisor++;}
if($g2 ne ''){$divisor++;}
if($g3 ne ''){$divisor++;}
if($g4 ne ''){$divisor++;}
if($g5 ne ''){$divisor++;}
if($g6 ne ''){$divisor++;}
}
sub decrement{
$divisor = 6;
if($g1 eq ''){$divisor--;}
if($g2 eq ''){$divisor--;}
if($g3 eq ''){$divisor--;}
if($g4 eq ''){$divisor--;}
if($g5 eq ''){$divisor--;}
if($g6 eq ''){$divisor--;}
}
sub display{
print "
$message
- Grade 1: $g1 $message1
- Grade 2: $g2 $message2
- Grade 3: $g3 $message3
- Grade 4: $g4 $message4
- Grade 5: $g5 $message5
- Grade 6: $g6 $message6
- The total of the grades is $total.
- The Average of the grades is $average.
- The divisor is $divisor.
- The letter Grade is: $letter.
";
}
sub form{
print "
";
}
sub top{
print "
Average Script
";
}