Re: Faire une division de variables en TCL/Tk

Jean-Philippe Barbier wrote:

>(re)Bonjour à tout le monde,
>je suis en train de faire un script en TCL/TK qui fait la chose suivante:
>
>il se connecte a une machine distante, calcul (via un "du -b") la
>taille d'un repertoire
>puis il calcul le temps de transfert, sachant que le debit est
>constant a 80Ko/s, et l'affiche a l'utilisateur.
>
>Sauf que voila, je n'arrive pas à diviser 2 variables ...
>
>j'ai fait ça :
>
>set cmd "rsh $MACHINE -l sitr 'du -b $REP_DATAO/$NUMERO_DATA | tail
>-n 1 | cut -f1' 2>/dev/null"
>set TAILLE [ exec /bin/sh -c $cmd ]
>
>#calcul du temps de transfert
>#debit moyen de 80Ko/s
>set TEMPS_TRANSFERT [$TAILLE div 81920] #c'est ca qui marche pas ...
>
>set ETAT_TRANSFERT "Temps de telechargement : $TEMPS_TRANSFERT"
>etatTransfert configure -text "Temps de telechargement :
>$TEMPS_TRANSFERT" -background #00ff00
>
>
>Si quelqu'un connait la facon de diviser 2 variables ... Merci d'avance !
>
>Librement,
>Jp
>
>
>
>
>
Pour diviser, il faut utiliser la syntaxe suivante :
set RESULT [ expr $VAR_1 / $VAR_2 ]

Cordialement
JPM