TCL、TK学习交流文档.ppt

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 语法要点（续） clock 时钟 clock seconds 返回一个以秒为单位的整型值 clock format ClockValue -format FormatString 把一个“秒”时间返回成指定格式的字符串。格式串的语法同C，参见help clock format [clock seconds] -format “%Y%m%d %H:%M:%S clock scan 从一个“时间”字符串里返回“秒”时间。一般来说，tcl的版本越高，支持的时间“格式”越多。 clock scan 12/31/2001 clock scan;# μí°?±?2??§3? clock scan 12/31/2001 23:10:0 clock scan Wed Feb 21 12:03:10 2001 clock scan next day -base [clock seconds] clock scan next month 用法太复杂了，要多实验多体会。 语法要点（续） expr 计算表达式，包括数学函数、数值类型转换。 数值计算只能在expr里。它也支持数据类型转换 例： set x 100 set y [expr $x * 2 ] set z [expr $x * 2.1] set zz [ expr $x.00 + 1] set yy [expr double($x)] file 可以取得文件系统的有关信息，执行有关操作。 glob 按返回符合指定条件的文件名list 语法要点（续） incr 简单的计算变量的加减 incr x incr y -1 info 返回一些有关程序的信息。我常用于判断一个变量是否存在： if { ![info exists VarName ] } { set VarName $SomeVar . . . } join 和split split $SomeString 把一个字符串解成list split $SomeString , 以，为分隔符把一个字符串解成list join $SomeList 把一个list合成一个字符串 join $SomeList , 以，为分隔符把一个list合成一个字符串 语法要点（续） list 及相关操作 list arg1 … argn 把各个参数合成一个list llength $SomeList 返回list的长度（元素个数） lindex $SomeList 0 返回list的第一个元素 lindex $SomeList end 返回list的最后一个元素 ;# end是list操作的保留字 lindex $SomeList [expr [llength $SomeList] - 1] 什么意思？ linsert $SomeList Index $SomeVar 在Index（元素位置 ，如上文0，end）处插入一个元素。 lrange $SomeList first last 从list的first位置到last位置返回一个子列。 lreplace $SomeList first last $SomeVar 从list的first位置到last位置的元素替换成新值 lsort ?option? $SomeList 对list排序 lsearch $SomeList $SomeVar 在list里搜索是否有某元素，经常用到。 join 、split、foreach 就不说了 open 打开文件或管道，简直和C一样。相关操作close 、flush、puts、gets、read、seek、eof、tell 语法要点（续） pid 返回本进程的id，有用吗？我做后台程序时用过。 regexp 对字符串进行正则表达式分析 regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...? 如果在 string 之后指定了补充的参数，则把它们作为变量的名字对待，把关于 string 中匹配exp 的那部分的信息返回到其中。MatchVar 将被设置为匹配全部 exp 的 string 的范围。第一个 subMatchVar 将包含与 exp 中最左的圆括号中的子表达式相匹配的 string 中那部分字符，下