代码如下：
#!/usr/bin/tclsh set value "one" puts $value unset value puts $value
set表示创建一个变量第一个参数是变量名，第二个参数为变量值
unset为取消变量
运行结果如下:
