Compteur de mots

[djkenny]

salut,

pour faire une structure simple
en tcl, je te conseil d utiliser la commande "dict" avec un array
par exemple:

tclcopier

bind pubm - * stat:incr
proc stat:incr {nick host hand chan arg} {
  variable stat
  set $chan [string tolower $chan]
  if ![info exists stats($nick)] {
    set stat($nick) [dict create]
  }
  dict incr stat($nick) $chan [llength $arg]
}
 
bind pub - !mots stat:return
proc stat:return {nick host hand chan arg} {
  variable stat
  set pseudo [lindex $arg 0]
  if [info exists stats($pseudo)] {
    foreach list [dict get $stat($pseudo)] {
      putserv "PRIVMSG $chan :$pseudo à dit [lindex $list 1] sur [lindex $list 0]"
    }
  } else {
    putserv "PRIVMSG $chan :$pseudo inconnu"
  }
}

avec un "bind save" pour sauvegarder toutes les heures dans un fichier ou sur une base sql (au choix)

edit: ne pas oublier de charger le fichier (ou la base de donnée sql) au chargement du tcl