#au chargement du tcl on lit le fichier en question si il existe, sinon on le crée
set lefichier /home/machin/truc/tonfichier.txt
if [file exists $lefichier] {
    set a [open $lefichier r]
    variable tavar [split [read $a] \n]
    close $a
} else {
    variable tavar [list]
    set a [open $lefichier w]
    close $a
}

#au join on va chercher dans la variable contenant le fichier, si un pseudo correspond et on envoi une notice avec le reste de la ligne
bind join - * join:bonjour
proc join:bonjour {nick host hand chan} {
    variable tavar
    foreach a $tavar {
        if [string equal -nocase [lindex $a 0] $nick] {
            putserv "NOTICE $nick :[lrange $a 1 end]"
            break
        }
    }
}