#!/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 '' && $g
+6 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 "
               <h2>$message</h2>
    <ul>
    <li>Grade 1: $g1  $message1 </li>
    <li>Grade 2: $g2  $message2 </li>
    <li>Grade 3: $g3  $message3</li>
    <li>Grade 4: $g4  $message4</li>
    <li>Grade 5: $g5  $message5</li>
    <li>Grade 6: $g6  $message6</li>
     <li>The total of the grades is $total.</li>
     <li>The Average of the grades is $average.</li>
     <li>The divisor is $divisor.</li>
     <li>The letter Grade is: $letter.</li>

        </ul>
";
}


sub form{

print "



    <form method='post' action='average.pl'>
     <ul>
        <li>
    <label for='grade1'>Grade 1 </label>
    <input type='text' id='grade1' name='g1' size='4'maxlength='3'>
    </li>

    <li>
    <label for='grade2'>Grade 2 </label>
    <input type='text' id='grade2' name='g2' size='4'maxlength='3'>
    </li>
    <li>

    <label for='grade3'>Grade 3 </label>
    <input type='text' id='grade3' name='g3' size='4'maxlength='3'>
    </li>

    <li>

    <label for='grade4'>Grade 4 </label>
    <input type='text' id='grade4' name='g4' size='4'maxlength='3'>
    </li>

    <li>

    <label for='grade5'>Grade 5 </label>
    <input type='text' id='grade5' name='g5' size='4'maxlength='3'>
    </li>

    <li>

    <label for='grade6'>Grade 6 </label>
    <input type='text' id='grade6' name='g6' size='4'maxlength='3'>
    </li>

    <li>
    <input type='submit' value='Average it'/>
    <input type='reset' value='ReDo it'/>
   
        </li>
     </ul>
        </form>
";
}



sub top{

print "
    <!DOCTYPE html>
    <html lang='en'>
    <head><title>Average Script</title>
    <meta charset='utf-8' />
    </head>
    <body>
    
";
}

[download]

In reply to Re^2: convert perl to php quickly by Anonymous Monk
in thread convert perl to php quickly by Mr. Lee

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!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • 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, details, 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, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            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.