25 lines
467 B
Perl
25 lines
467 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;
|
||
|
|
|
||
|
|
do {
|
||
|
|
my $xmltrace;
|
||
|
|
open $xmltrace, "<", shift or die $!;
|
||
|
|
binmode $xmltrace;
|
||
|
|
my $trace = Trace->new($xmltrace);
|
||
|
|
close $xmltrace unless $xmltrace eq *STDIN;
|
||
|
|
|
||
|
|
my $grade = Grading->new();
|
||
|
|
$grade->create_from_trace("rendu_1", "rendu-1", $trace);
|
||
|
|
|
||
|
|
say $grade->to_string();
|
||
|
|
} while ($#ARGV >= 0);
|