TCL脚本编程

TCL命令格式

tcl命令的格式为：
命令   参数

命令参数可以多个，一般为1到2个

参数可以是一个tcl命令格式，必须用[]来限定。[]里必须是一个有效的tcl命令脚本。例如：

set y [expr $x+200]

 

TCL数据结构

列表

定义一个列表

set a [list 1 2 3]

concat 合并列表

set a [list 1 2 3]
set b [list 4 5 6]
set y [concat $a $b]

lindex命令返回list的第index个元素，从0开始

lindex {1 2 {3 4}} 1

2

llength 返回list的元素个数

llength {5 2 {8 9}}

3

linsert 

linsert list index value ?value...?

把 ？value...？插入到list的第index value个元素之前得到一个新串

TCL if ... else 语句

if { } {

} else {

}

if后面要加空格和{ }进行隔开。

文件访问

open命令返回一个字符串用于标识打开的文件，当调用别的命令（如：gets、puts、close）时，可以使用这个文件标志符。

tcl有三个特定的文件标识：stdin,stdout和stderr。

proc tgrep { pattern filename} {
set f [open $filename r]
while { [gets $f line ] } {
    if {[regexp $pattern $line]} {
            puts stdout $line
            }
        }
close $f
}