TCL语言全称为Tool Command Language，它是一种功能强大的脚本语言。

Linux下安装命令:

su yum install tcl tk

一.TCL特殊变量

查看Tcl版本：

puts $tcl_version

Tcl环境路径： 

puts $env(PATH)

Tcl程序包路径：

puts $tcl_pkgPath

二.TCL基本语法

Tcl命令的语法如下

commandname   argument1  argument2 ... argumentN

1.标识符：Tcl标识符是用来标识变量，函数，或任何其他用户定义的项目的名称，一个标识符开始以字母A到Z或a到z或后跟零个或多个字母下划线，美元，和数字。Tcl不允许标点字符，如@ 和%等。

2.命令结构（每条命令通过换行或；隔开）：

set a 0

set b 1；

3.注释（使用#注释）

set  a  10； #将10赋给a

4.Tcl中共有三种替换，分别为：命令替换([ ])、变量替换($+变量)、反斜杠替换（\特殊字符）

命令替换：在命令替换中，方括号是用来计算在方括号中的脚本

例：

puts [ expr 1+2+3]

输出：

6

变量替换：在变量替换中，$ 使用在变量名之前，这将返回该变量的内容例：

 set a  5

 puts   $a

输出：

5

反斜杠替换：通常被称为转义序列，每个反斜线后跟有自己含义的字母

例：

puts "hello \nworld"

输出：

hello

world

其中\n是换行命令

5.Tcl数据类型

在Tcl中，无论它是一个整数，布尔，浮点数，或一个字符串。当使用一个变量，可以直接赋值给它，Tcl没有声明一步，可以有内部表示为这些不同类型的对象例：

set variable  6

puts $variable

输出：

6

上述声明中创建一个变量名为variable，并将其存储为一个字符串

字符串表示：

set variable hello

puts $variable

输出：

hello

当我们想表达多个字符串时，可以使用双引号或大括号例：

set  variable "hello world"

puts $variable

set  variable {hello world}

puts $variable

输出：

hello world

hello world

列表 -List ：列表不过是一组元素。一组单词或者使用双引号或大括号可以用来表示一个简单的列表
例：

 set variable {red green blue}

 puts [lindex $variable 2]

 set variable  "red green blue"

 puts [lindex $variable 1]

输出：

blue

green

6.变量命名：变量的名称可以包含任何字符和长度，甚至可以存在空格被封闭在大括号中的变量

set命令用于指定值的变量，语法为：

set  variableName  value例：

set variableA 10

set {variable B} test

puts $variableA

puts ${variable B}

输出：

10

test

7.数学表达式

expr是用于表示数学表达式。 Tcl默认精度为12位。为了得到浮点运算的结果，我们应该增加至少一个十进制数字。

例：

set variableA "10"

set result [expr $variableA / 9];

puts $result

set result [expr $variableA / 9.0];

puts $result set variableA "10.0"

set result [expr $variableA / 9];

puts $result 

输出：
 

1

1.1111111111111112

1.1111111111111112

在上面的例子中，可以看到三种情况。第一种情况，被除数和除数是整数，得到一个整数作为结果。第二种情况，除数是小数以及第三种情况，分数是一个十进制数。在第二和第三情况下，得到的是十进制数作的结果。

在上面的代码，可以使用tcl_precision特殊变量改变精度。

例：
 

set variableA "10"

set tcl_precision 5

set result [expr $variableA / 9.0];

puts $result

输出：

1.1111

8.TCL运算符

Tcl语言有丰富的内置运算符，共有以下几种类型：

算术运算符

关系运算符

逻辑运算符

位运算符

三元运算符

Tcl运算符优先级：从上往下依次降低

 9.TCL条件语句

1） if语句

if语句包含一个布尔表达式后跟一个或多个语句

语法： if { boolean_expression}  {

   # statement will execute if the boolean expression is true

 }

2）if else语句

语法:

if {boolean_expression} {

# statementwill execute if the boolean expression is true

} else {

# statement will execute if the boolean expression is false

} 
如果布尔表达式的值为true，那么if代码块将被执行，否则else块将被执行

3)if...else if...else 语句

if语句可以跟着一个可选的else if ... else语句

语法：

if {boolean_expression 1} {

# Executes when the boolean expression 1 is true

} elseif {boolean_expression 2} {

# Executes when the boolean expression 2 is true

} elseif {boolean_expression 3} {

# Executes when the boolean expression 3 is true

} else {

# executes when the none of the above condition is true

}