filipg
/
djfz-2019
1
1
Fork 3
Code Issues Pull Requests 1 Releases Wiki Activity

Fixes

This commit is contained in:
Filip Gralinski 2020-02-04 20:49:32 +01:00
parent d2142492ec
commit 8f0bc94ce0
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
count-points.pl
View File

@ -16,27 +16,6 @@ if (-r 'overrides.txt') {
read_overrides();
}
my @reports = sort @ARGV;
my $total;
my %section_points = ('A' => 0, 'B' => 0, 'C' => 0);
my $student_id = get_student_id();
if (defined $student_id) {
print "STUDENT ID is $student_id\n";
} else {
print "UNKNOWN STUDENT ID\n";
}
intro();
for my $report (@reports) {
update_total($report, process_report($report));
}
outro($total);
my %to_hashes = map { $_ => 1 } split/\n/,<<'END_OF_HASHES';
2982763
2982861
@ -93,6 +72,27 @@ my %to_hashes = map { $_ => 1 } split/\n/,<<'END_OF_HASHES';
3096331
END_OF_HASHES
my @reports = sort @ARGV;
my $total;
my %section_points = ('A' => 0, 'B' => 0, 'C' => 0);
my $student_id = get_student_id();
if (defined $student_id) {
print "STUDENT ID is $student_id\n";
} else {
print "UNKNOWN STUDENT ID\n";
}
intro();
for my $report (@reports) {
update_total($report, process_report($report));
}
outro($total);
sub get_student_id {
my $pwd = cwd();