6 my (@rubric) = read_text_file (shift);
11 our ($possible_overall, $score_overall) = (0, 0);
12 our ($possible, $score) = (0, 0);
13 for my $i (0...$#rubric) {
14 local ($_) = $rubric[$i];
15 if (/^\S/ || /^\s*$/) {
18 } elsif (my ($value, $name, $desc) = /^\s+(\d+)\s+(\S+):\s+(.*)$/) {
21 if (grep ($_ eq $name, @pass)) {
27 push (@grade, " $marker$value $name: $desc");
34 push (@grade, "", "TESTING TOTAL: $score_overall of $possible_overall points");
36 print map ("$_\n", @grade);
40 push (@grade, "Subtotal: $score of $possible points");
41 $possible_overall += $possible;
42 $score_overall += $score;
43 $possible = $score = 0;
48 open (FILE, '<', $file_name) or die "$file_name: open: $!\n";
49 my (@content) = <FILE>;