1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
| open GENERATION_DISTANCES,">generation_distances.txt";
print GENERATION_DISTANCES "\/\/ fichier distances : nom coordonnees conso nbadresses taillemot duree \n";
if (!open(DESC,"$capacites_generation_paquets") ) { die "ERROR : File <$capacites_generation_paquets> not found\n"; }
while ($lit=<DESC>)
{ chomp $lit;
if($lit=~/^\/\/.*/)
{ next;}
elsif ($lit=~/^(\w+)\s+(\d+)\s+([\d]+)\s+([\w|d]+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+([\d|\.]+).*/)
{
$namememories= $1;
$coordonnesmemoriesX = $2;
$coordonnesmemoriesY = $3;
$cutnamememories = $4;
$numbermemories = $5;
$powermemories = $6;
$frequencymemories = $7;
$consumptionmemories = $8;
$nbadresses = $9;
$taillemot =$10;
$duree =$11;
$name_memories{$namememories}{namememories} = $namememories;
$name_memories{$namememories}{coordonnesmemoriesX} = $coordonnesmemoriesX;
$name_memories{$namememories}{coordonnesmemoriesY} = $coordonnesmemoriesY;
$name_memories{$namememories}{cutnamememories} = $cutnamememories;
$name_memories{$namememories}{numbermemories} = $numbermemories;
$name_memories{$namememories}{powermemories} = $powermemories;
$name_memories{$namememories}{frequencymemories} = $frequencymemories;
$name_memories{$namememories}{consumptionmemories} = $consumptionmemories;
$name_memories{$namememories}{nbadresses} = $nbadresses;
$name_memories{$namememories}{taillemot} = $taillemot;
$name_memories{$namememories}{duree} = $duree;
push @coordonneesX ,$name_memories{$namememories}{coordonnesmemoriesX};
push @coordonneesY ,$name_memories{$namememories}{coordonnesmemoriesY};
push @consumptionmemories,$name_memories{$namememories}{consumptionmemories};
push @nbadresses,$name_memories{$namememories}{nbadresses};
push @taillemot,$name_memories{$namememories}{taillemot};
push @duree,$name_memories{$namememories}{duree};
for my $i ( 1 .. $#coordonneesX ) {
$i=$i++;
$conso_ajoutee[$i]=$consumptionmemories[0]+$consumptionmemories[$i]; |
Partager