07/03/2008, 09:53
Je pense que le soucis vient alors du test (il y a un join sur le badword défini, ça doit virer les espaces).
vérifie la présence du mot (ou de la chaine de mots) dans les arguments, il faudrait lui ajouter des délimiteurs comme \b (délimiteur de mot) avant et après $badw
tcl
if { [regsub -all "$badw" $args "" dummy] } {
vérifie la présence du mot (ou de la chaine de mots) dans les arguments, il faudrait lui ajouter des délimiteurs comme \b (délimiteur de mot) avant et après $badw