tcl使用技巧

1）查看版本号

echo 'puts $tcl_version;exit 0' | tclsh

2）打印行号(tcl版本8.5以后)

proc printLine {} {

    set lineNum [dict get [info frame 1] 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