TCL脚本语言光速入门教程，一篇就够了（超全查表）

        
目录
引子：初见TCL
基本下令
置换下令
普通置换
变量置换
下令置换
反斜杠置换
其他置换
脚步下令
eval下令
source下令
语言下令
简单变量
数组变量
重构变量及其利用
补充概念
全局变量和局部变量
小结

---

        最近突然遇到了要用TCL脚本语言利用的需求，找资料的过程中发现资料都是零零星散的，再看完很多文档之后，重新归类整理了一下，个人认为整理的照旧比较清晰，是先从较为简单和常用的置换下令开始分析，然后再到语言下令的利用，降低了入门的难度，也利于利用的时间查阅，最后也整理出了头脑导图版本可供利用。
引子：初见TCL

        TCL（tool command language）用于描述脚本，仿真的网络环境和参数设置，也称“踢叩” "tickle"。我以为他的语言思绪和linux的终端下令有点像，基本就是利用符+变量如许子，省去了很多字符修饰。
        下面将先容一下常用的下令集，以及遇到的常见标题，可以在目录中快速跳转，建议收藏一下方便速查~
基本下令

置换下令

        置换下令可以当作C语言中的赋值来明白，但是又有点不一样，由于这个置换不必要界说范例，可以直接赋值，所以引入了新的规则，来让机器知道每个字符或者数字到底必要做什么，可以按照下面的思绪学习。
普通置换

1. set x 10
2. set y 100 + x    //命令执行后，y的值是“100 + x”而不是我们期望的110

复制代码

        Tcl解释器在分析下令时，把全部的下令参数都当作字符串对待，所以x 被看作了字符串“100 + x”的一部分。如果我们想利用x的值'10' ，就必须告诉Tcl解释器：我们在这里期望的是变量x的值，而非字符'x'。怎么告诉Tcl解释器呢，这就要用到Tcl语言中提供的置换功能。置换可以发生在包罗下令名在内的每一个单词中，而且置换可以嵌套。
变量置换

1. set x 10
2. set y 100 + $x   //这时，y的值还不是我们想要的值110，而是100+10

复制代码

        变量置换由一个＄符号标志，变量置换会导致变量的值而非变量（标识符）本身被插入到字符串中。由于Tcl解释器把10+100看成是一个字符串而不是表达式；y要想得到值110，还必须用下令置换，使得Tcl会把100+10看成一个表达式并求值。
下令置换

1. set x 10
2. set y [expr 100+$x]  //这时，y的值就是110了

复制代码

        下令置换是由 [ ] 括起来的TCL下令及其参数，这里当Tcl解释器遇到字符' [ '时，它就会把随后的expr（下图解释）作为一个下令名，从而激活与expr对应的C/C++过程。下令置换会导致某一个下令的全部或部分单词（参数）被另一个下令的结果所取代，并把expr下令中变量置换后得到的'10+110'传递给该下令过程进行处置惩罚。留意，[ ]中必须是一个合法的Tcl脚本，长度不限。[ ]中脚本的值为最后一个下令的返回值。

         补充：expr 后面的两个参数接“比较符”，类似[a 比较 b ? a  :b]，为运算符则为普通运算。
反斜杠置换

1. set msg multiple\ space

复制代码

        如果没有'\'的话，Tcl会报错，由于解释器会把这里最后两个单词之间的空格认为是分隔符，于是发现set下令有多于两个参数从而报错。参加了'\'后，空格不被当作分隔符，'multiple space'被认为是一个整体。【毕竟TCL语言没有 ； 的要求】
其他置换

        除了利用反斜杠外，Tcl提供双引号” “和花括号 { }，使得解释器把分隔符和置换符等特殊字符当作普通字符而不作特殊处置惩罚。
but！差别的是：

• TCL解释器对双引号“ ”中的各种分隔符将不作处置惩罚，但是对换行符及＄和[]两种置换符会照常处置惩罚。
  
• 而在花括号{ }中，全部特殊字符都将成为普通字符，失去其特殊意义，Tcl解释器不会对其作特殊处置惩罚
  

脚步下令

        这个没有太多的东西，常用的重要有两种下令（可以留言补充）
eval下令

1. eval arg arg ...

复制代码

        吸取一个或多个参数，然后把全部的参数以空格隔开组合到一起成为一个脚本，然后对这个脚本进行求值
source下令

1. source e:/tcl&c/hello.tcl（例子）

复制代码

        读一个文件并把这个文件的内容作为一个脚本进行求值。留意路径的描述应该和UNIX相同，利用' / '而不是' \ '

---

学完了上面的一些规则之后，下面还要美满一下常用的下令底子

---

语言下令

        固然TCL语言有自己独特地用法，但是咱们最好照旧按C\C++语言中标识符的命名规则命名，如许不但方便明白，也能减少冲突概率，有了上面的概念底子部分之后，语言下令这部分，咱们就由浅入深地聊聊~
简单变量

1. set a 2   //将2赋值给a
2. set a.1 5  //名字和值都可以是任何字符串
3. set b $a.1  //我们希望把变量a.1的值付给b，但是结果不是
4. set b ${a.1}  //强大的花括号，实现上一条的想法

复制代码

        Tcl解释器在分析时只把 $ 符号之后直到第一个不是字母、数字或下划线的字符(这里是 '. ')之间的单词符号当作要被置换的变量的名字，所以TCL解释器把a置换成2,然后把字符串“2.1”付给变量b。这显然与我们的初志差别。当然，如果变量名中有不是字母、数字或下划线的字符又要用变量置换，可以用花括号把变量名括起来。
数组变量

1. set day(monday) 1
2. set day(tuesday) 2

复制代码

        数组是一些元素的集合。TCL的数组和一样平常编程语言中的数组有很大的区别。在TCL中，不能单独声明一个数组，数组只能和数组元素一起声明。数组中数组元素的名字包含两部分：数组名和数组中元素的名字，Tcl中数组元素的名字（下标〕可以为任何字符串。
重构变量及其利用

fomat下令

1. set msg [format "%s is %d years old" $name $age]

复制代码

        format下令类似于ANSIC中的sprintf函数，它按formatstring提供的格式，把各个value的值组合到formatstring中形成一个新字符串，并返回。
scan下令

1. scan "some 26 34" "some %d %d" a b

复制代码

        scan下令可以认为是format下令的逆，其功能类似于C中的sscanf函数。它formatsting提供的格式分析string字符串，然后把结果存到变量varName中，留意除了空格和TAB键之外，string 和formatsting中的字符和'%'必须匹配。
string下令

1. string length string
2. string range string first last
3. string index string charIndex
4. string tolower string [first] [last]
5. string replace string first last [newstring]
6. string equal [-nocase] [-length int] string1 string2
7. string match [-nocase] pattern string  //如果pattern 匹配string,那么返回1,否则返回0.
8. string compare [-nocase] [-length int] string1 string2   //如果有 -length 参数，那么只比较前 int 个字符
9. string first string1 string2 [startindex]  //在string2 中从头查找与string1匹配的字符序列，如果找到，那么就返回匹配的第一个字母所在的位置(0-based)。如果没有找到，那么返回-1。
10. string trim string [chars]  //返回值为:从string字符串的首尾删除掉了字符集合chars中的字符后的字符串。如果没有给出chars，那么将删除掉spaces、tabs、newlines、carriage returns这些字符.

复制代码

        string下令具有强盛的利用字符串的功能，并通过其中的subcmd来区别具体将要执行的string利用。
list相关下令

1. list [ value value...]  //这个命令生成一个list，list的元素就是所有的value
2. concat list [list...]  //这个命令把多个list合成一个list
3. llength list  //返回list的元素个数
4. lindex list index  //返回list的第index个(0-based)元素
5. lrange list first last   //返回list的第first (0-based)到第last (0-based)元素组成的串,如果last的值是end。就是从第first个直到串的最后
6. linsert list index value [value...?]  //返回一个新串，新串是把所有的value参数值插入list的第index个(0-based)元素之前得到

复制代码

 补充下令

         这一部分没有怎么用到过，但是为了方便查询，也给加上了，以后万一必要呢。
补充概念

全局变量和局部变量

        对于在过程中界说的变量，由于它们只能在过程中被访问，并且当过程退出时会被自动删除，所以称为局部变量；在全部过程之外界说的变量我们称之为全局变量。TCL中局部变量和全局变量可以同名，两者的作用域的交集为空：局部变量的作用域是它所在的过程的内部；全局变量的作用域则不包罗任何过程的内部。这一点和C语言有很大的差别。如果我们想在过程内部引用一个全局变量的值，可以利用global下令。
缺省参数和可变参数
        可以界说具有缺省参数值的过程，我们可以为过程的部分或全部参数提供缺省值，如果调用过程时未提供那些参数的值，那么过程会自动利用缺省值赋给相应的参数。和C\C++中具有缺省参数值的函数一样，有缺省值的参数只能位于参数列表的后部，即在第一个具有缺省值的参数后面的全部参数，都只能是具有缺省值的参数。
        TCL的过程界说还支持可变个数的参数，如果过程的最后一个参数是args, 那么就表现这个过程支持可变个数的参数，位于args从前的参数象普通参数一样处置惩罚，但任何附加的参数都必要在过程体中作特殊处置惩罚，过程的局部变量args将会被设置为一个列表，其元素就是全部附加的变量。如果没有附加的变量，args就设置成一个空串。
引用概念

1. upvar [level] otherVar myVar otherVar myVar ...

复制代码

        upvar下令使得用户可以在过程中对全局变量或其他过程中的局部变量进行访问。upvar下令的第一个参数otherVar是我们盼望以引用方式访问的参数的名字，第二个参数myVar 是这个过程中的局部变量的名字

1. proc temp { arg } { upvar $arg b set b [expr $b+2] }
2. proc myexp { var } { set a 4 temp a return [expr $var+$a] }
3. 则: myexp 7 13

复制代码

        一旦利用了upvar 下令把otherVar 和myVar 绑定,那么在过程中对局部变量myVar 的读写就相当于对这个过程的调用者中otherVar 所代表的局部变量的读写。这上面的例子中，upvar 把$arg(实际上是过程myexp中的变量a)和过程temp中的变量b绑定，对b的读写就相当于对a的读写。

1. upvar 2 other x

复制代码

        upvar下令语法中的level参数表现：调用upvar下令的过程相对于我们盼望引用的变量myVar在调用栈中相对位置，这个下令使得当前过程的调用者的调用者中的变量other，可以在当前过程中利用x访问。缺省情况下，level的值为1，即当前过程(上例中的temp)的调用者(上例中的myexp)中的变量(上例中myexp的a)可以在当前过程中利用局部变量(上例中temp的b)访问。

1. upvar ＃0 other x

复制代码

        要访问全局变量可以如许写，不管当前过程处于调用栈中的什么位置，都可以在当前过程中利用x访问全局变量other。
小结

        一样平常来说，TCL语言是IC方向设计或者测试应用的一门重要语言，在linux/unix体系在上面写bash shell脚本程式也常常用到，想要学习和建立更好的测试环境，我们必要了解脚本中一些常用的语句和用法。固然我现在用到的还不是很多，但是也先整理了下来，先大体学习一下，后面再渐渐加深印象，差别语言和步伐之间有很多思绪都是相通的，多打仗一门语言也会让我们的头脑更加开阔。
        有些函数现在还没有效到，所以也不敢过多注释，后期会随着利用渐渐美满，如果有必要调解的地方还请指正，不胜感激!
        最后是整理的一图速查版本，上传图片大小有限制qwq，如果看不清的话可以找我重新发给你，应该是基本都思量到了

 

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。