#!/usr/bin/perl

#usage: ./gen_csv.pl assignmentNumber > out.csv
# example: ./gen_csv.pl 1 > out1.csv

%students = ();

$cmd = 'ls project-{a,A}' . $ARGV[0] . '{{B,b}onus,P*,p*}-grades.csv';

@files = glob($cmd);

foreach (@files)
{
	open(IN, $_);

	while($line = <IN>)
	{
		@info = split(/,/, $line);
		$students{@info[0]} += @info[1];
	}

	close(IN);
}

print "userid,grade\n";

foreach $key (sort keys %students)
{
	$grade = $students{$key};
	print $key . "," . $grade . "\n";
}