Tcl入门培训概要.ppt

Tcl入门培训 # AIOMNIVISION ENV export AIOMNIVISION=$HOME/aiomnivision/bin; export AGENTLOGDIR=$HOME/aiomnivision/log/applog export AGENTTRACEDIR=$HOME/aiomnivision/trace export AITOOLS=$AIOMNIVISION/aitools export DATABASE=db2 或oracle或TDB 将$AITOOLS/lib加入到系统环境变量中： SHLIB_PATH HP-UX LD_LIBRARY_PATH MP-RAS and SOLARIS (INTEL/SPARC) LIBPATH AIX 将$AITOOLS/bin加入PATH中 语法要点（续） 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 对字符串进行正则表达式分析 如： set x 01062501658 regexp “010(.*)” $x y z puts “$x $y $z” scan 从字符串里读数据，同C的语法 scan string format varName ?varName ...? scan 10,20 %d,%s x y set 和 unset set 设置或初始化一个变量 unset 释放一个变量（有时很有用的） socket 打开一个tcp连接，我没用过，但亚信肯定用了，比如短消息网关。 语法要点（续） string 对字符串操作，是tcl里最常用。 常用的操作： string first string1 string2 ?startIndex? 在string2的startInddex位置开始查找第一次匹配string1的位置，例如： string first a 0bcdef 5 ;# 返回10 string index $SomeStr charIndex 返回SomeStr 中charIdex处的字符。 string is class $SomeStr 返回字符串的类型，低版本tcl不支持 string is digit 01062501658 ;#返回1 string length $SomeStr 返回字符串长度 string range $SomeStr first last 返回字符串中first 到last部分 string trim $SomeStr ?Chars? 在字符串的两头删除Chars集中的字符，如果Chars没有说明，则删除空格、tab、回车、换行。 string trimleft $SomeStr ?Chars? 在字符串的左边删 string trimright $SomeStr ?Chars? 在字符串的右边删 注意： 这三个trim可别弄混了，否则. . . 语法要点（续） switch 一个多分支的结构，和C差不多。操作很多，常用的形式： switch $SomeVar { 1 - 2 { puts “T