demande de compression du code si possible

[CrazyCat]

Et ça se dit CoderZ...

tclcopier

set nick [lindex [split $nick |] 0]

S'il y a un |, $nick contient la partie qui le précède. S'il n'y en a pas, $nick contient l'intégralité de la chaine.
Et donc, pas besoin de faire un string match.

Code :

.tcl set toto [lindex [split "abc" |] 0]; putlog $toto
> abc

.tcl set toto [lindex [split "abc|test" |] 0]; putlog $toto
> abc