#!/usr/local/bin/perl
#


$REP = $ARGV[0];
$NBR = $ARGV[1];
$DAT = $ARGV[2];
$FIL = $ARGV[3];
$OUT = $DAT.'/runs_out';

#system('cp '.$DAT.'/'.$FIL.'.dat '.$DAT.'/'.$FIL.'.learn');
#splitage des dats necessaire.....


system('mkdir '.$OUT);



for($I=0;$I<$NBR;$I++) {
  system($REP.'/Roger -DATA '.$DAT.'/'.$FIL);
  system('mkdir '.$DAT.'/Run_'.$I);
  system('mv resul* '.$DAT.'/Run_'.$I);
  system('mv '.$REP.'/Roger.status '.$DAT.'/Run_'.$I);
  system('mv popu.xg '.$REP.'/Run_'.$I);
  system('rm sauvegarde*');
}  

for($I=0;$I<$NBR;$I++) {
  $fichier=$DAT.'/Run_'.$I.'/resul.poids';
  open(INFO,"$fichier");
  @attr=<INFO>;
  close(INFO);

  foreach $ligne (@attr) {
    $ligne =~ s/(poids|\-)//gi;
  }

  $fichier=$OUT.'/resul'.$I.'.xg';
  open(INFO,">$fichier");
  print INFO @attr;
  close(INFO);
}

system('xgraphic -pstex='.$OUT.'/result.ps '.$OUT.'/resul*.xg');