Start of a script to add up scores by student

scripts/compute-totals

+#!/usr/bin/perl -w
+
+use strict;
+
+foreach my $student (`list-students`) {
+    chomp $student;
+    my $total = 0;
+    my $totalpossible = 0;
+    foreach my $hw (`list-hw`) {
+        chomp $hw;
+        my $branch = "$hw-graded-$student";
+        if (`git show -s --format=%s $branch` =~ /^\s*Total score: (\d+(\.\d+)?)\s*\/\s*(\d+)/) {
+            my ($score, $possible) = ($1,$3);
+            $total += $score;
+            $totalpossible += $possible;
+        } else {
+            die "No score for student $student\n";
+        }
+    }
+    printf "%10s %3.02f / %3.02f = %3.02f\n", $student, $total,
+        $totalpossible, ($total/$totalpossible)*100;
+}