tcl에서 배열 목록을 얻는 방법

Question

몇 가지 조사를했지만 각 배열 요소에 대해 고유 한 이름을 사용하고 목록에 이름을 저장하는 ugly hacks 만 찾습니다. 이 일을 할 수있는 방법이 있습니까? 대신 배열의

Answer 1

, 당신은 사전을 사용하려면 : http://www.tcl.tk/man/tcl8.5/TclCmd/dict.htm

사전 일류 변수입니다 그냥 다른 변수처럼 주위에 전달 (그리고 목록에 배치) 할 수 있습니다.

% set d1 [dict create a b c d] 
% set d2 [dict create e f g h i j] 
% set lst [list $d1 $d2] 
% set lst ;# ==> {a b c d} {e f g h i j} 

Answer 2

직장에서 우리는 여전히 Tcl 8.4를 사용합니다. 나는 그 dict이 back-ported되었다는 것을 알고 있지만 표준 패키지의 일부는 아닙니다. 8.4에서는 Tclx 패키지의 키 목록을 사용합니다. 여기서 예이다 :

# Problem: I want to create a list of arrays 
# Solution: For 8.5, I can have list of dict, but for 8.4, use 
# keyedlist in place of dict. This script is written for 8.4 

package require Tclx 

# Create individual users and a list 
keylset user1 id 101 alias john; # {{id 101} {alias john}} 
keylset user2 id 102 alias ally; # {{id 102} {alias ally}} 
set users [list $user1 $user2] 

# Show the list 
foreach user $users { 
    puts "ID: [keylget user id]" 
    puts "Alias: [keylget user alias]" 
    puts "" 
} 

출력 :

또한

ID: 101 
Alias: john 

ID: 102 
Alias: ally