TCL的基本语法.ppt

设置变量，数组和列表 3、设置list列表 运算符和优先级 运算符和优先级 list和regexp命令 1、下面主要介绍以下几个list命令: lindex llength lsearch split list和regexp命令 llength 返回一个整数，其值代表列表中所拥有元素的个数，用法如下： llength { 1 2 3 {4 5}} 返回结果为：4 通用格式：llength $list1 list和regexp命令 split把字符串string按分隔符splitChars分成一个个单词，返回由这些单词组成的串。缺省值是空格 语法：split string ?splitChars? 用法如下：split “how*are*you!” * 返回结果：how are you! list和regexp命令 regexp命令 regexp命令用于判断正规表达式是否全部或部分匹配字符串string，匹配返回1，否则0 。具体的用法 举例说明： regexp { ([0-9]+) *([a-z]+)} there is 100 apples total 返回结果为：1 对于list和regexp命令，这里只是列举了一些简单的例子，有兴趣的可以参看更多的资料，来对其进行更深的理解 if和switch语句 TCL中的控制流包括if、while、for、foreach、switch、break、continue等命令。在这节简单介绍下if和switch语句。 if和switch语句 If简单举例介绍 set var_i 10 if { $var_i = 0 } { set result [expr $var_i * $var_i] puts “$result” } else { puts “var_i is letter than zero ” } if和switch语句 switch作用和if一样都是根据判断结果然后在去执行符合的条件。对于if来说，经常判断一些拥有两种状态的条件，而switch经常用于有多个判断条件。如：给出一个1到7的整数来判断今天是周几，这个时候用switch会比if好些 循环语句 while和for循环也是使用率很高的命令。它可以完成一些if语句实现起来比较困难的语句。下面就举例来简单的介绍一下。 循环语句 下面再来看看for循环的例子： 比如要实现 set result 0 for { set i 1 } { $i = 10 } { incr i 1 } { set result [expr $result + $i] } puts $result 从for的例子中，可以看出很容易实现了从1到10的相加。 介绍字符串操作 本节主要介绍几个字符串的操作 1、string compare $string1 $string1 该命令把string1和string2两个字符串进行比较。串1大于串2时返回1，等于返回0，否则返回-1。 例如：string compare tw gojing 结果返回：1 注意：按ACSII的顺序进行比较 2、string equal $string1 $string2 串1等于串2返回1，不相等返回0 介绍字符串操作 3、string tolower string ?first? ?last? 返回值为：把字符串string转换成小写后的字符串，如 果给出了first和last变量，就只转换first和last之间的字符 例如：string tolower TW-GONGJIN 结果：tw-gongjin 4、string toupper string ?first? ?last? 用法和第5个介绍的字符串相似 列举几个Proc过程和catch的例子 TCL中过程是由proc命令产生的，主要有基本的命令来实现一个或多个特定的功能。 下面还是以举一个简单的小例子来说明一下问题，写一个能够实现两个说相加的过程： proc addxy { x y } { set result [expr $x + $y] puts $result } 写完上面的过程后，就可以用如下命令计算两个数的和： Addxy 100 66 列举几个Proc过程和catch的例子 下面再介绍一种带缺省参数的三个数相加的过程。 还是通过具体的例子来理解并运用此类过程： 例如： proc addT {val1 {val2 2} {val3 3}}{ set resul