mistery
23/05/2010, 13:23
j'aimerai trier une liste et afficher le resultat mais j'ai un petit soucis : Tcl error [classement]: wrong # args: should be "set varName ?newValue?"
tcl
proc classement {nick host hand chan text} {
global top10_file a b c d e
set liste3 [list[split [read [set f [file join ./ $top10_file] "r"]] "\n"]]
close $f
set liste2 [list {[lindex $liste3 0] $a} {[lindex $liste3 1] $b} {[lindex $liste3 2] $c} {[lindex $liste3 3] $d} {[lindex $liste3 4] $e}]
set liste [list[lsort [-integer -index 1 $liste2]]]
putserv "NOTICE $nick : $liste "
}