Création de fichier | écriture

[LitteulBlack]

Bonjour tous le monde,

Je viens vers vous car je tente depuis quelques heures de créer un fichier .txt par le biais d'un script TCL.

Voici le contenu du script:

Code:

proc start:timer {} {
[llength [chanlist #....-fr]]
set f [open "...../user.txt" "w"]
puts $f [llength [chanlist #....-fr]]
close $f
timer 5 start:timer
return
}
start:timer

Merci pour votre aide si précieuse :)

[CrazyCat]

Je pense qu'utiliser un timer n'est pas une bonne idée... plutôt réagir à ce qui fait varier le nombre d'utilisateurs:

tcl

set canal "#canal"
bind join - "$canal *" log:join
proc log:join {nick uhost handle chan} { log:write }
 
bind part - "$canal *" log:part
proc log:part {nick uhost handle chan {msg ""}} { log:write }
 
bind kick - "$canal *" log:kick
proc log:kick {nick uhost handle chan target reason} { log:write }
 
bind sign - "$canal *" log:quit
proc log:quit {nick uhost handle chan reason} { log:write }
 
proc log:write {} {
   set fp [open "./usernb.$::canal" "w"]
   puts $fp [llength [chanlist $::canal]]
   close $fp
   return 1
}