Comment intriguer Tcl "liste comme chaîne" comme liste?

Question

Par une raison inconnue la result variable dans la ligne de code suivante

set result [[$sqlCmd execute] allrows -as lists] 

obtient la chaîne qui ressemble à la liste: {2 3 4 5}

Si j'écris puts "result $result => [llength $result]" imprime {2 3 4 5} => 1

si j'écris puts [list $result], il imprime {{2 3 4 5}}, ce qui est correct car list crée la liste à partir d'une chaîne.
Y at-il un moyen de convertir cette chaîne à ce qu'elle devrait être - list - sans aucune étape de traitement de chaîne comme la suppression des accolades et la séparation des chaînes à la liste par split fonction? Je suggère que cela doit être une interprétation mais je suis incapable de trouver une bonne solution.

Answer 1

allrows donne une liste de listes, chaque sous-liste représentant une ligne. Il y a 1 ligne dans cette liste, 2 3 4 5, donc la longueur est 1. Vous pouvez indexer ou itérer sur la liste les moyens habituels pour accéder à son élément.

# If you're assuming there will only be one row 
set only_row [lindex $result 0] 

# Or if you want to iterate over all rows 
foreach row $result { 
    do whatever with $row 
} 

Answer 2

La méthode allrows renvoie toujours une liste, un par ligne (même quand il n'y a qu'une seule ligne renvoyée). Lorsque l'option -as lists est transmise, chaque élément de cette liste est lui-même une liste représentant les colonnes de cette ligne.

Ainsi, pour itérer sur les colonnes de cette ligne, vous feriez:

set result [[$sqlCmd execute] allrows -as lists] 
set rowresult [lindex $result 0] 
foreach col $rowresult { 
    puts "I've got a '$col'" 
} 

Vous êtes généralement recommandé d'utiliser la valeur par défaut qui représente les lignes que les dictionnaires indexés par nom de colonne, comme cela a un meilleure représentation de SQL NULL s (c'est-à-dire que la colonne est absente alors au lieu d'être la valeur nulle désignée par le pilote, qui est souvent et de manière ambiguë la chaîne vide).