tcl实用代码集

写于 2021-12-07 23:08:13 星期二

特殊变量：

特殊变量	描述
argc	指命令行参数的个数。
argv	指包含命令行参数的列表。
argv0	是指被解释的文件或由调用脚本的名称的文件名。
env	用于表示是环境变量数组元素。
errorCode	为最后的Tcl错误的错误代码。
errorInfo	为最后Tcl错误的堆栈跟踪信息。
tcl_platform	用于表示使用对象，包括byteOrder, machine, osVersion平台和操作系统数组元素。
tcl_version	返回Tcl解释器的最新版本。
tcl_library	用于设置的标准Tcl库的位置。

获取当前时间：

	set now [clock seconds]
	set timestr [clock format $now -format "%y-%m-%d %H:%M:%S"]

获取时间差：

	set now [clock clicks -milliseconds]
	set end [clock clicks -milliseconds]
	set result_time [format "%.1f" [expr double($end-$now)/1000]]