The Perl code

#!/usr/bin/perl -w

$filename = "grades";
open(GRADES, $filename) or die "Can't open $filename: $!\n";
while ($line = <GRADES>) {
	($student,$grade) = split(/\s+/, $line);
	$grades{$student} .= $grade . " ";
}

foreach $student (sort keys %grades) {
	$scores = 0;
	$total = 0;
	@grades = split(" ", $grades{$student});
	foreach $grade (@grades) {
		$total += $grade;
		++$scores;
	}
	$average = $total / $scores;
	print "$student: $grades{$student}\tAverage: $average\n";
}

< Previous (28) | [Index] | (30/31) Next >