tcl语法

numa  num_13  num13 _num_13  NUMA numa_num13

set {1hello}  "Hello World1 !"set {hello 2} "Hello World2 !"puts ${1hello}puts ${hello 2}
#% Hello World1 !#% Hello World2 !

# n 表示换行符，双引号可识别set str1 "Hello World ! n"puts "$str1 I'm learning TCL."
# 大括号内所有字符都不做任何特殊处理set str2 {n $str1 [expr 1+2 ]}puts "$str2"
#% Hello World !  #%  I'm learning TCL.#% n $str1 [expr 1+2 ]

# It is a test， 注释# [] 内执行加法操作set res [expr 1 + 2]# 利用反斜杠显示 $ 符号puts "$res = $res"#% $res = 3

# It is a testputs "Hello world !"

puts "Hello world !" ; # It's a test

if {0} {    Next are notes    It's a test    Good luck!}puts "Hello world !"