comment créer une variable unique

Question

Comment créer une variable unique dans TCL?

Exemple:

exec echo $msgBody - /tmp/Alert_Notify_Work.$$ 
exec cat /home/hci/Alert.txt -- /tmp/Alert_Notify_Work.$$ 

Cela ne fonctionne pas; J'essaie de rendre la variable Alert_Notify_Work unique.

Answer 1

$$ n'est pas valide syntaxe Tcl, et Tcl analysera cette ligne avant que le shell le voit. Mais il existe une commande Tcl pour récupérer le pid: pid. Je compte habituellement sur l'heure actuelle et le pid pour l'unicité.

Je suppose que msgBody est une variable Tcl, et le - et -- dans vos commandes doivent être respectivement > et >>.

Option 1

set filename /tmp/Alert_Notify_Work.[clock seconds].[pid] 
exec echo $msgBody > $filename 
exec cat /home/hci/Alert.txt >> $filename 

ou, Tcl seulement quelques lignes supplémentaires:

set f_out [open /tmp/Alert_Notify_Work.[clock seconds].[pid] w] 
puts $f_out $msgBody 
set f_in [open /home/hci/Alert.txt r] 
fcopy $f_in $f_out 
close $f_in 
close $f_out 

Answer 2

Il est préférable d'utiliser une bibliothèque pré-existante pour cela. Tcllib a un paquet FileUtil qui implémente tempfiles:

set filename [fileutil::tempfile Alert_Notify_Work.]