#!/usr/bin/perl

open (FICHIER1, "run.meta");
@map1 = <FICHIER1>;

$diro = `pwd`;
chop($diro);

$n_nodes=$ARGV[0];
$n_nodm1=$n_nodes-1;
$n=0;
$ind1=0;
$read_header=0;
$end_header=0;

$ind1=-1;
#--------------------------------------------------------
for ($i=1; $i<=$n_nodes; $i++) {
  $nam0=NODE_.$i;
  mkdir ($nam0, 0777);
  system("cp *.txt $nam0/.");
  # deal with run.meta
  @mapout=();
  foreach $lign1 (@map1) {
    if ($lign1=~ m/initial/) {
      push (@mapout,'initial_dir = '.$diro.'/'.$nam0."\n");
    } else {
      push (@mapout,$lign1);
    }
  }
  chdir ($nam0);
  open (FICHIER2, ">run.meta");
  print FICHIER2 @mapout;
  chdir ("..");
  close(FICHIER2);
}

#--------------------------------------------------------
sub trim {
  foreach $lign (@_) {
    $lign=~s/ +/ /g;
    if (substr($lign,0,1) eq ' ') {substr($lign,0,1)=''}
    chop ($lign);
  }
}