Discussion :

[ckefran9]

Bonjour,
Je tiens a preciser, que je m escuse pour l absence d accent . Je dispose d un vieux clavier qwerty de l' epoque des machines sun sur solaris. De plus mon pc est configure en anglais par mon entreprise, ce que ne me permet pas d' utiliser la correction auto pour y remedier.


j' ai un petit probleme avec mon code. Voila je recupere deux valeurs :
-> purcentusedQtreeDB qui est le pourcentage d' utilisation enregistre dans la BDD
-> purcentusedqtree qui est le pourcentage recupere dans un fichier source pour verifier que la valeur enregistree dans la BDD soit identique.

$GoUsed et $finalsize sont des valeurs intermediaires a mes calculs.

Si la valeur du fichier source est differente je met alors a jour ma BDD.
Le probleme :
je pense que cela vient de la ligne de code : "set tcl_precision 2"

Je compare mes deux valeurs mais il arrive que si elle sont identique, le script me dise le contraire. J' utilise tcl_precision pour arrondir mon pourcentage et ainsi eviter les mise a jour redondante vu qu' une valeur peut rapidement passer de 95,54879% a 95,55555578% etc..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
set tcl_precision 2
set purcentusedqtree [expr {double($GoUsed)/$finalsize}]																	
 #traitement du pourcentage
if {$purcentusedqtree < 1} {
	set purcentusedqtree [expr ($purcentusedqtree * 100)]
} elseif {1< $purcentusedqtree < 10} {
	set purcentusedqtree [expr ($purcentusedqtree * 10)]
} elseif {10< $purcentusedqtree} {
	set purcentusedqtree [expr ($purcentusedqtree * 1)]
}
if { $purcentusedQtreeDB == $purcentusedqtree } {
	 puts "$lefilerDB -> $levolumeDB -> $leqtreeDB -> BD :$purcentusedQtreeDB VS $purcentusedqtree EGAL "	 			 								
} elseif {$purcentusedQtreeDB != $purcentusedqtree} {	
		puts "$lefilerDB -> $levolumeDB -> $leqtreeDB -> BD :$purcentusedQtreeDB VS $purcentusedqtree DIFFERENT<-------- "								 	 							 
}

resultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Getting data for gnx419 ...
gnx419 -> vol9 -> p0256 -> BD :57 VS 57.0 DIFFERENT<-------- 
gnx419 -> vol9 -> p0317 -> BD :37 VS 37.0 EGAL 
gnx419 -> vol9 -> p0190 -> BD :77 VS 77.0 EGAL 
gnx419 -> vol9 -> p0291 -> BD :87 VS 87.0 EGAL 
gnx419 -> vol9 -> p0324 -> BD :87 VS 87.0 EGAL 
gnx419 -> vol9 -> p1645 -> BD :98 VS 98.0 EGAL 
gnx419 -> vol2 -> p0032 -> BD :95 VS 95.0 EGAL 
gnx419 -> vol2 -> w0001 -> BD :39 VS 39.0 EGAL 
gnx419 -> vol2 -> p0318 -> BD :99 VS 99.0 EGAL 
gnx419 -> vol2 -> p0196 -> BD :86 VS 86.0 EGAL 
gnx419 -> vol2 -> p0381 -> BD :74 VS 74.0 EGAL 
gnx419 -> vol2 -> m0028 -> BD :7.1 VS 7.1 EGAL 
gnx419 -> vol2 -> p0028 -> BD :97 VS 97.0 EGAL

Voila "gnx419 -> vol9 -> p0256 -> BD :57 VS 57.0 DIFFERENT<-------- " Quelqu' un pourrait' il m' eclairer ?
Merci

[ckefran9]

Bonjour, voici la r'eponse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
set purcentusedqtree [format "%.2f" [expr double($GoUsed)/$finalsize * 100 ]]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Getting data for gnx419 ...
gnx419 -> vol9 -> p0256 -> BD :57.5 VS 57.50 EGAL 
gnx419 -> vol9 -> p0317 -> BD :36.67 VS 36.67 EGAL 
gnx419 -> vol9 -> p0190 -> BD :76.67 VS 76.67 EGAL 
gnx419 -> vol9 -> p0291 -> BD :86.67 VS 86.67 EGAL 
gnx419 -> vol9 -> p0324 -> BD :86.67 VS 86.67 EGAL 
gnx419 -> vol9 -> p1645 -> BD :97.86 VS 97.86 EGAL 
gnx419 -> vol2 -> p0032 -> BD :94.92 VS 94.92 EGAL 
gnx419 -> vol2 -> w0001 -> BD :39.29 VS 39.29 EGAL 
gnx419 -> vol2 -> p0318 -> BD :98.75 VS 98.75 EGAL 
gnx419 -> vol2 -> p0196 -> BD :86.32 VS 86.32 EGAL 
gnx419 -> vol2 -> p0381 -> BD :73.75 VS 73.75 EGAL 
gnx419 -> vol2 -> m0028 -> BD :7.14 VS 7.14 EGAL 
gnx419 -> vol2 -> p0028 -> BD :97.14 VS 97.14 EGAL

Le probleme devais venir de la variable tcl_precision.