TCL实例记录

由于用进废退，为了不能忘记太多，结合一些例子回顾一下tcl的用法

1. string 相关操作：

对于字符串的处理，有如下很多的用法，对于string match、 string range用处比较多。

set s "b"
set sm "a*gb*"
set string1 "abgbbb abcdffdmm"
puts [string index $string1 0]
>a
puts [string first $s $string1]
>1 
puts [string last $s $string1]
>8
puts [string length $string1]
>16
puts [string match $sm $string1]
>1
puts [string match "a*gb*" $string1]
>1
puts [string range $string1 0 3]
>abgb
puts [string tolower $string1]
>abgbbb abcdffdmm
puts [string toupper $string1]
>ABGBBB ABCDFFDMM
puts [string trimright $string1 "m"]
>abgbbb abcdffd
puts [string trimleft $string1 "b"]
>abgbbb abcdffdmm
puts [string trim $string1 "a"]
>bgbbb abcdffdmm
puts [string wordend $string1 8]
>16
puts [string wordend $string1 1]
>6
puts [string wordstart $string1 8]
>7

2. list相关操作

对于list操作如下所示

3. dic相关操作

4. array相关操作

5.error capture设定

6.数学函数

namespace import  ::tcl::mathfunc::*
set num1 -3
set num2 3
puts [expr abs($num1)]
%3