tclsh 用法

set foo "a bc"                   # 定义变量

        set b {$a};                      # 转义  b的值为" $a " ,而不是变量结果

        set a ; incr a ;               # 数字的自增.  将a加3,如果要减3,则为 incr a –;

        set c [expr /];               # 计算  c的值为4

        puts $foo;                       # 打印变量

        set qian() f;                 # 定义数组

        set qian(,,) fs;              # 多维数组

        parray qian;                     # 打印数组的所有信息

        string length $qian;             # 将返回变量qian的长度

        string option string1 string2;   # 字符相关串操作

        # option 的操作选项:

        # compare           按照字典的排序方式进行比较。根据string1 <,=,>string2分别返回-,,

        # first             返回string2中第一次出现string1的位置，如果没有出现string1则返回-

        # last              和first相反

        # trim              从string1中删除开头和结尾的出现在string2中的字符

        # tolower           返回string1中的所有字符被转换为小写字符后的新字符串

        # toupper           返回string1中的所有字符串转换为大写后的字符串

        # length            返回string1的长度

        set a ;while {$a < } { set a [incr a ;]; };puts $a    # 判断变量a小于3既循环

        for {initialization} {condition} {increment} {body}      # 初始化变量,条件,增量,具体操作

        for {set i } {$i < } {incr i} {puts $i;}              # 将打印出0到9

        if { 表达式 } {

             #运算;

        } else {

             #其他运算;

        }

        switch $x {

            字符串1 { 操作1 ;}

            字符串2 { 操作2 ;}

        }

        foreach element { m n b v} {

        # 将在一组变元中进行循环，并且每次都将执行他的循环体

               switch $element {

                     # 判断element的值

             }