7 foreach my $user (`cd testing && ls`) {
10 open REP, ">testing/$user/REPORT" or die;
11 print REP "Evaluation report for CEOI 2007 Day 1\n\n";
13 foreach my $task (@ARGV) {
14 print REP "### Task $task ###\n\n";
15 if (open PTS, "testing/$user/$task/points") {
19 my ($test, $pts, $comm) = /(\S+)\s+(\S+)\s+(.*)/;
21 printf REP "Test %2s: %2d points (%s)\n", $test, $pts, $comm;
25 print REP "\nTOTAL: $tt points\n\n";
29 print REP "No solution submitted.\n\n";
33 print REP "### TOTAL FOR DAY 1 ###\n\n";
34 print REP "$total points\n";
35 print REP "\n\n(generated on ", strftime("%Y-%m-%d %H:%M:%S", localtime), ")\n";