TCL : probleme de verification de donnees
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:
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:
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
