接触expect、tcl语言

需求：telnet登陆到远端设备，并且根据不同的反馈情况执行一系列命令，我是用expect来实现的。

expect是从tcl（Tool Command Language）语言发展来的，tcl语言则应用在测试自动化等领域。实际上用到expect的地方并不多，反而是要花一些时间去学习tcl语言。

tcl语言类似shell，但是开发的时候还是有很多东西要适应的，比如没有圆括号，方括号作为表达式等等。

linux系统中一般已经安装了tcl语言运行环境，终端中输入tclsh即进入。

% set a "Hello World!"
Hello World!
% puts $a
Hello World!

set用于注册变量，puts用来输出变量。
有一点需要注意，tcl语言默认把所有输入都当作字符串，例如

% set x 10+10
10+10

先看一小段代码：

% set str "This is a example!"
This is a example!
% string first "is" $str
2
% string first "is" $str 3
5
% set loc [string first "is" $str 3]
5
% string index $str $loc
i
% string range $str $loc [expr $loc+2]
is 

这段代码里出现了常用的几个字符串函数first、index、range。first命令用于返回字符串第一次出现的位置，如果没有找到，会返回-1，当然可以设置跳过前面的n个字符开始搜索。range用于获取一段范围内的字符串，和很多脚本语言里的substr差不多，这里要指出的是最后一个参数不能省略。index用于获取字符串第n个位置的字符。

“[]”方括号是tcl语言的一个特性，有点类似于一些脚本语言的eval()函数，叫做命令置换。实际上tcl语言有eval命令，这个大家有需要再详细摸索。“[]”中必须是完整的表达式，长度不限，可以嵌套使用，它的值是最后一个命令的返回值。这里要特别指出，“[]”用做字符串，必须转义。

expr是tcl的一个命令，可以有一个或者多个参数，把所有的参数组合到一起作为一个表达式来求值。

tcl语言有很强大的字符串函数，这里只是简单介绍两个我用到的，此外还有正则表达式等等。

tcl语言不像其他的脚本语言那样有广大的用户群，参考资料不多，这里推荐一个在线文档，感兴趣的朋友可以去看看。

附：tcl常用函数
变量和过程：global, proc, return, set
控制：break, case, continue, eval, for, foreach, if
杂项：catch, error, info, time
调用子进程：exec
文件：file, glob, print, source
操纵：format, scan, string
表达式：expr
字符串：concat, index, length, list, range