#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(confess);
use Data::Dumper;
use Getopt::Std;
use List::Util qw(shuffle);

use Ernad::Args;
use Ernad::Erimp;

our ($impna, $e, $repcode, $in_file);
&Ernad::Args::parse();
$e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});
my $learn_dir=$e->{'dir'}->{'learn'};
system("rm -r $learn_dir/*");
foreach my $repcode (shuffle @{$e->{'r'}->list()}) {
  my $s="learn $impna $repcode > ~/log/$repcode.log 2> ~/log/$repcode.err";
  system($s);
  print "$s\n";
}



__END__;