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]]