HW8-5

grades.pl

#!/usr/bin/perl

my %grades;
while (<>){
    chomp;
    ($lname, $fname, $asm, $score) = split(/,/);
    if (exists $grades{$lname}){
        $grades{$lname}{$asm} = $score;
    }else{
        $grades{$lname} = {"firstname" => $fname, $asm => $score};
    }
}

foreach (keys %grades){
    $t = 0.2*$grades{$_}{"hw"} + 0.3*$grades{$_}{"midterm"} + 0.5*$grades{$_}{"final"};
    print $_, ", ", $grades{$_}{"firstname"}, " ", $t, "\n";
}