+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : F.A.Q. (https://forum.eggdrop.fr/forumdisplay.php?fid=9)
+--- Sujet : Tri de tableaux (/showthread.php?tid=90)
Tri de tableaux - CrazyCat - 14/09/2007
Question qui m'a été posée aujourd'hui: comment trier un tableau en tcl?
Voici la réponse que j'ai trouvée:
tcl
set memberlist [array get a]
foreach {key value} $memberlist {lappend unsortedlist [list $key $value]}
set sortedlist [lsort -index 1 $unsortedlist]
# -index 1 trie par valeur plutôt que par clés
foreach pair $sortedlist {
set key [lindex $pair 0]
set value [lindex $pair 1]
puts "$key : $value"
}
# renvoit la liste des éléments, triée par valeurs
RE: Tri de tableaux - mastronic - 14/09/2007
Merci beaucoup.. donc dans cette example "a" est une variable de type array comme par ex:
array set a {
cs-asm "www.site.com"
cs-80c51 "www.site2.com"
cs-php "www.site3.com"
s-eggdrop "www.eggdrop.fr"
}
Dans l'example donné, on affiche le tableau trier...
la key : s-eggdrop par ex suivie de sa valeur www.eggdrop.fr
NB: pour ma part, j'ai remplacer le trie par l'option par defaut -ascii
set sortedlist [lsort -ascii $unsortedlist]
RE: Tri de tableaux - MenzAgitat - 15/09/2007
Sans l'option -index, les sous-listes ne sont pas considérées et tu tries chaque élément séparément. Tu vas mélanger les paires de ton array.