calculate average for Coursera quizzes.

quiz.pl

#!/usr/bin/env perl

my @scores;

while ( my $line = <DATA> ) {
    chomp $line;
    push @scores, $line;
}

@scores = reverse @scores;

my $sum   = 0;
my $count = 0;

for my $score (@scores) {
    my ( $num, $den ) = $score =~ m#^([^\s]+)\s*/\s*([^\s]+)$#;
    my $quiz = $num / $den * 100;
    $sum += $quiz;
    $count++;
    printf "quiz #%d: %%%.2f\n", $count, $quiz;
}

printf "%.2f on $count quizzes\n", $sum / $count;

__DATA__
10.0/11.0
8.1/14.0
10.8/14.0
13.00 / 15.00
13.00 / 15.00
14.00 / 14.00
8.10 / 10.00
4.5/5