29 lines
435 B
Perl
29 lines
435 B
Perl
#! /usr/bin/env perl
|
|
|
|
use v5.10.1;
|
|
use strict;
|
|
use warnings;
|
|
use Getopt::Long;
|
|
use Pod::Usage;
|
|
|
|
use lib "..";
|
|
use ACU::Grading;
|
|
use ACU::Trace;
|
|
|
|
my $grade = Grading->new();
|
|
|
|
do {
|
|
my $xml;
|
|
open $xml, "<", shift or die $!;
|
|
binmode $xml;
|
|
|
|
my $trace = Trace->new($xml);
|
|
|
|
close $xml unless $xml eq *STDIN;
|
|
|
|
$grade->create_from_trace("rendu_1", "rendu-1", $trace);
|
|
|
|
} while ($#ARGV >= 0);
|
|
|
|
print $grade->to_string();
|