TCL脚本语言学习

TCL是一种脚本语言,它几乎可以在全部平台上运行,可移植行很强。
TCL语言设计的目的是提供程序与其他程序之间进行交互的功能,也是作为一个可嵌入的翻译互相作用的能力。
开发简单,上手快。

TCL输入输出

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/tclsh
#默认输出到标准输出流
puts hello
puts stdout hello
#输出到标准错误流
puts stderr error
#输入必须指定输入流
gets stdin varible
puts $varible

TCL文件读写操作

1
2
3
4
5
6
7
8
9
#打开data文件,打开模式有r,w,a,r+,w+,a+
set fp [open data w]
puts $fp "hello world"
close $fp
set fp [open data r]
gets $fp test
puts $test
close $fp

TCL数据类型

TCL变量不需要声明,可以直接使用

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
# TCL对象,对于整数,浮点数,bool,字符串,都是一个对象
#可直接给其赋值
set varible 1
set s "hello world"
# 列表,列表初始化时可以使用双引号或者大括号进行初始化
set list {hello world hah hah}
set list "hello world hah hah"
#访问列表元素,使用lindex
puts [lindex $list 0] #hello
#关联数组,类似map,key可以是数字,也可以是字符串
set map(a) 10
puts $map(a)

TCL条件控制语句

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
# if语句
if {expression1} {
dosomting
} elseif {expression2} {
dosometing
} else {
dosomething
}
#for 语句
for {set a 10} {$a < 20} {incr a} {
dosometing
}
#switch语句
switch switchingString {
matchString1 {
body1
}
matchString2 {
body2
}
matchStringn {
bodyn
}
}

运算符的优先级

分类 操作符 关联
Unary + - Right to left
Multiplicative * / % Left to right
Additive + - Left to right
Shift << >> Left to right
Relational < <= > >= Left to right
Equality == != Left to right
Bitwise AND & Left to right
Bitwise XOR ^ Left to right
Bitwise OR Left to right
Logical AND && Left to right
Logical OR || Left to right
Ternary ?: Right to left

Comment and share

  • page 1 of 1

魏传柳(2824759538@qq.com)

author.bio


Tencent


ShenZhen,China