#! /usr/bin/env perl
use v5.10.1;
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
BEGIN {
push @INC, "../common";
}
use Grading;
use Trace;
# Parse arguments
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;
pod2usage(-exitval => 0, -verbose => 2) if $man;
my $xmlgrading;
if ($#ARGV == -1) {
pod2usage(1);
else {
open $xmlgrading, "<", shift or die $!;
binmode $xmlgrading;
my $grade = Grading->new($xmlgrading);
close $xmlgrading;
do {
my $xmltrace;
if (defined $input || $#ARGV == -1) {
$xmltrace = *STDIN;
open $xmltrace, "<", shift or die $!;
binmode $xmltrace;
my $trace = Trace->new($xmltrace);
close $xmltrace unless $xmltrace eq *STDIN;
$grade->fill($trace->getIds);
say $trace->getFirstWho().",".$grade->compute();
} while ($#ARGV >= 0);