#!usr/bin/perl -W
#un fichier de poids.
$Nomfic = shift;
open (F,$Nomfic)|| die $!;
@fich = <F>;
close(F);
open(Fw,">$Nomfic.w");
open(Fc,">$Nomfic.c");
$k=0;
foreach (@fich) {
  if (!(/^$/)) {
    @mots = split(' ',$_);
    $w = 100 * $mots[2]; #le poids
    $c = 100 * $mots[3]; #le centre
    $u = 10 * $k; # pour voir mieux les dessins
    print Fw "$u $w\n";
    print Fc "$u $c\n";
    $k++;
  }
}
close(Fw);
close(Fc);
