基于perl cgi的db值计算

我试图通过获取学生的成绩和他们班级的学分数来计算学生的平均成绩。我遇到了一个问题，即它没有正确计算creditsEarned和GPA。对于U或F等级，获得的学分应为0，但这不是输出值。我不确定我的陈述有什么不对

#!/usr/bin/perl 
#This is going to be the user login check and will set a cookie

use DBI;
use CGI qw(:standard);

use strict;

#Connection error 
sub showErrorMsgAndExit {
    print header(), start_html(-title=>shift);
    print (shift);
    print end_html();
    exit;
}

#Connecting to the database
my $dbUsername = "root";
my $dbPassword = "password";

my $dsn = "DBI:mysql:f18final:localhost";
my $dbh = DBI->connect($dsn, $dbUsername, $dbPassword, {PrintError => 0});

#error checking
if(!$dbh) {
    print header(), start_html(-title=>"Error connecting to DB");
    print ("Unable to connec to the database");
    print end_html();
    exit;
}

print header;
print start_html(-title=>'Edit Classes');

#Need to execute sql command and then iterate row by row
my $sql = "SELECT * FROM tblclasses";
my $sth = $dbh->prepare($sql);
$sth->execute();

my $passedCredits = 0;
my $attemptedCredits = 0;
my $totalHonor = 0;
my $gpa = 0.000;


##SSSssssssearch part


print "<table border=solid 1px>"; #start of table
print "<tr><th>Class Name</th><th>Department</th><th>Class Number</th><th>Grade</th><th>Credits</th>";
print "</tr>";
while( my @row = $sth->fetchrow_array) {
    print "<tr><td>";
    print $row[1];
    print "</td>";
    print "<td>";
    print $row[2];
    print "</td>";
    print "<td>";
    print $row[3];
    print "</td>";
    print "<td>";
    print $row[4];
    print "</td>";
    print "<td>";
    print $row[5];
    print "</td>";

    $attemptedCredits = $attemptedCredits + $row[5];
    if($row[4] == 'A' || $row[4] == 'a') {
        $passedCredits = $passedCredits + $row[5];
        $gpa = $gpa + (4 * $row[5]);
    }
    elsif($row[4] == 'B' || $row[4] == 'b') {
        $passedCredits = $passedCredits + $row[5];
        $gpa = $gpa + (3 * $row[5]);
    }
    elsif($row[4] == 'C' || $row[4] == 'c') {
        $passedCredits = $passedCredits + $row[5];
        $gpa = $gpa + (2 * $row[5]);
    }
    elsif($row[4] == 'D' || $row[4] == 'd') {
        $passedCredits = $passedCredits + $row[5];
        $gpa = $gpa + (1 * $row[5]);
    }
    elsif($row[4] == 'F' || $row[4] == 'f') {

    }
    elsif($row[4] == 'S' || $row[4] == 's') {
        $passedCredits = $passedCredits + $row[5];
    }
    elsif($row[4] == 'U' || $row[4] == 'u') {

    }

    #calculate

    print "</tr>";

}


print "</table>";

#Need to make a table and populate it with text boxes of all the class data


print "</table>"; #End of table

$gpa = $gpa / $attemptedCredits;

##RReturn values
print qq{
<table border = '1px solid'>
<tr>
<td>
Attempted Credits
</td>
<td>
Passed Credits
</td>
<td>
GPA
</td>
</tr>
<tr>
<td>
$attemptedCredits
</td>
<td>
$passedCredits
</td>
<td>
$gpa
</td>
</tr>
</table>
};
print "<form action=http://localhost/cgi-bin/actions.pl method = 'post' >";
print "<input type = 'submit' name = 'submit' value = 'More Options'>";
print "</form>";
print "<form action=http://localhost/cgi-bin/searchingTran.pl method = 'post' >";
print "<input type = 'text' name = 'search' size = '25'><br>";
print "<input type = 'submit' name = 'submit' value = 'Search'>";
print "</form>";
print end_html();

这是我的输出

还有没有办法把GPA打印到小数点后三位

对于U或F等级，获得的学分应为0，但这不是输出值

生成输出时，您甚至在查看成绩之前就打印了$row[5]的内容。要将其正确显示为0，您需要首先检查等级，然后如果等级为F或U，则打印0；如果等级为其他任何内容，则打印$row[5]

在实际代码中，我建议使用模板系统，例如，而不是直接打印HTML，这将有助于避免此类错误，但我看到这看起来像是一个家庭作业，我怀疑使用类似的替代方法是否在作业范围内

还有没有办法把GPA打印到小数点后三位

使用printf或sprintf：

对于U或F等级，获得的学分应为0，但这不是输出值

生成输出时，您甚至在查看成绩之前就打印了$row[5]的内容。要将其正确显示为0，您需要首先检查等级，然后如果等级为F或U，则打印0；如果等级为其他任何内容，则打印$row[5]

在实际代码中，我建议使用模板系统，例如，而不是直接打印HTML，这将有助于避免此类错误，但我看到这看起来像是一个家庭作业，我怀疑使用类似的替代方法是否在作业范围内

还有没有办法把GPA打印到小数点后三位

使用printf或sprintf：

---

仅供参考，您似乎在问题中意外粘贴了两次代码。我已对其进行编辑以删除重复副本。请仔细检查，以验证我在执行此操作时没有意外地将其更改为实际代码以外的内容。请不要在Perl代码中使用CGI.pm中的HTML生成函数，如start_HTML和end_HTML或b raw HTML。将向您展示一些更好的选择。仅供参考，您似乎在问题中意外粘贴了两次代码。我已对其进行编辑以删除重复副本。请仔细检查，以验证我在执行此操作时没有意外地将其更改为实际代码以外的内容。请不要在Perl代码中使用CGI.pm中的HTML生成函数，如start_HTML和end_HTML或b raw HTML。将向您展示一些更好的选择。

$gpa = sprintf('%0.3f', $gpa / $attemptedCredits);