manipulation des tableaux tcl à plusieurs dimentions

[fedora]

bonjour,
si tu pouvais utiliser les balises [tcl ] [/ tcl] ADÉQUAT stp ça serais bien.

Lorsque vous mettez du code tcl dans un message, pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces) pour l'encadrer afin de le rendre plus lisible.
Merci beaucoup pour les lecteurs

tclcopier

bind pub - !tab pub:testtab
proc pub:testtab { nick uhost handle  channel arg } {
set i 1
set idok "okid"
set pseudook "okpseudo"
set pseudoch $arg
set tail [array size tabpseudo]
array set tabpseudo(1 , id) {1}
array set tabpseudo(1 , pseudo) {coco}
array set tabpseudo(2 , id) {2}
array set tabpseudo(2 , pseudo) {hihi}
array set tabpseudo(3 , id) {3}
array set tabpseudo(3 , pseudo) {buybuy}
for {set i 1} {$i < [array size tabpseudo]} {incr $i} {
 
if { [string match "$pseudoch" $[array get $tabpseudo($i , $pseudo)] ] } {
array set tabpseudo([exper [array size tabpseudo] + 1] , 1) {$idok}
array set tabpseudo([exper [array size tabpseudo] + 1] , 2) {$pseudook}
putserv "PRIVMSG $channel : l'id qui correspondant à $pseudoch est: [array get $tabpseudo($i , id)]"
 
}
}
}