epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Rename common to ACU

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-02 19:11:17 +02:00
parent 641b516355
commit e243e7bbcf
4 changed files with 82 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

7
grades/generate.pl
View file

@ -13,10 +13,13 @@ use Grading;
use Trace;
# Parse arguments
my $input;
our $debug;
my $input; my $format;
my $help; my $man;
GetOptions ("help|h|?" => \$help,
"man" => \$man,
"format|F" => \$format,
"debug|d" => \$debug,
"" => \$input)
or pod2usage(2);
pod2usage(1) if $help;
@ -51,5 +54,5 @@ do {
$grade->fill($trace->getIds);
say $trace->getInfo("assistant").",".$grade->compute();
say $trace->getFirstWho().",".$grade->compute();
} while ($#ARGV >= 0);