1：Tcl脚本的执行
A：获取tclsh（linux）、tclsh.exe（windows）的安装路径
B：脚本第一行书写 “#!C:\Tcl\bin\tclsh” 或者 “#!/usr/bin/tclsh” 所有解释性语言(shell、perl)开头都是这玩意。
C：Linux 下直接./test.tcl 就可以了。windows下要使用 "tclsh test.tcl"否则会弹出一个页面，看不到输出结果（我使用的是Active Tcl）。
2：获取命令行参数
和C语言一样，Tcl中有两个默认变量，$argc 存储命令行参数的个数。list $argv中包含了参数信息。
举例如下：
#!C:\Tcl\bin\tclsh
set i 0
while {$i < $argc} {
#lindex 命令用于取出list中指定索引的参数
set arg [lindex $argv $i]
puts "$arg"
#incr 命令用于对变量进行加操作
incr i 1
}