接触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