TCL 동적 변수 사용

namespace eval NAMESPACE_NAME {
    variable var_1 "VALUE1"
    variable var_2 "VALUE2"
    variable var_3 "VALUE3"
}

# dynamic return way
for {set i 1} {$i < 4} {incr i} {
   puts [set NAMESPACE_NAME::var_$i]
}

# OUPUT
# >> VALUE1
# >> VALUE2
# >> VALUE3

# set 명령어는 "set Variable Value" 형태로 쓰면 Variable에 Value를 저장하지만
# "set Variable" 형태로 쓰면 Variable 값을 반환한다