Cách khởi tạo một mảng trong Tcl?

Question

Cách thích hợp để khởi tạo một mảng trống trong Tcl là gì?

Tôi có đoạn code sau (giản thể):

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

set r1 {} 
parseFile "filename" r1 

và tôi nhận được lỗi:

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

Answer 1

Bạn không khởi tạo mảng trong Tcl, họ chỉ xuất hiện khi bạn thiết lập một thành viên :

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 

sản lượng:

two one 

Answer 2

Để khởi tạo một mảng, hãy sử dụng "tập hợp mảng". Nếu bạn muốn chỉ tạo đối tượng mảng nội bộ mà không cho nó bất kỳ giá trị nào, bạn có thể cung cấp cho nó một danh sách rỗng làm đối số. Ví dụ:

array set foo {} 

Nếu bạn muốn cung cấp cho nó giá trị, bạn có thể cung cấp cho nó một danh sách trích dẫn đúng cách của các cặp/giá trị chính:

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

Answer 3

bộ dấu (tiếng Anh) 80

bộ array_name (key) value