Re^2: convert perl to php quickly

#!/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 ########

&top;

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]
Comment on Re^2: convert perl to php quickly Download Code