Как инициализировать массив в Tcl?

Question

Каков правильный способ инициализации пустого массива в Tcl?

У меня есть следующий код (упрощенный):

proc parseFile {filename results_array} { 
    upvar $results_array results 
    set results(key) $value 
} 

set r1 {} 
parseFile "filename" r1 

и я получаю ошибку:

Error: can't set "results(key)": variable isn't array

Answer 1

Вы не инициализировать массивы в Tcl, они просто появляются, когда вы установите элемент :

proc stash {key array_name value} { 
    upvar $array_name a 
    set a($key) $value 
} 

stash one pvr 1 
stash two pvr 2 
array names pvr 

выходы:

two one 

Answer 2

Для инициализации массива используйте «набор массивов». Если вы хотите просто создать внутренний объект массива, не давая ему никаких значений, вы можете дать ему пустой список в качестве аргумента. Например:

array set foo {} 

Если вы хотите, чтобы придать ему значения, вы можете дать ему правильно цитируемый список пар ключ/значение:

array set foo { 
    one {this is element 1} 
    two {this is element 2} 
} 

Answer 3

набор знаков (на английском языке) 80

набор array_name (key) value