1）查看版本号
echo'puts $tcl_version;exit 0'|tclsh
2）打印行号(tcl版本8.5以后)
proc printLine{}{
setlineNum[dictget[info frame1]line]
}
3) 文件操作
判断文件是否存在： if { [file exists $FILE] }
删除文件： file delete $FILE
4) 逻辑运算
下表列出了所有Tcl语言支持的逻辑运算符。假设变量A=1和变量B=0，则：
| 运算符 | 描述 | 例子 |
|---|---|---|
| && | 所谓逻辑与运算符。如果两个操作数都非零，则条件变为真。 | (A && B) 为 false. |
| || | 所谓的逻辑或操作。如果任何两个操作数是非零，则条件变为真。 | (A || B) 为 true. |
| ! | 所谓逻辑非运算符。使用反转操作数的逻辑状态。如果条件为真，那么逻辑非运算符为假。 | !(A && B) 为 true. |
5）关系运算符
下表列出了所有Tcl语言支持的关系运算符。假设变量A=1，变量B=2，则：
| 操作符 | 描述 | 例子 |
|---|---|---|
| == | 检查两个操作数的值是否相等，如果是的话那么条件为真。 | (A == B) 不为 true. |
| != | 检查两个操作数的值是否相等，如果值不相等，则条件变为真。 | (A != B) 为 true. |
| > | 检查左边的操作数的值是否大于右操作数的值，如果是的话那么条件为真。 | (A > B) 不为 true. |
| < | 检查左边的操作数的值是否小于右操作数的值，如果是的话那么条件为真。 | (A < B) 为 true. |
| >= | 如果左操作数的值大于或等于右操作数的值，如果是的话那么条件检查为真 | (A >= B) 不为 true. |
| <= | 检查左边的操作数的值是否小于或等于右操作数的值，如果是的话那么条件为真。 | (A <= B) 为 true. |
6) 条件判断
if ... elseif ... else
版权声明：本文为sundongsdu原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。