Tcl-变量及运算符

Tcl变量

在TCL，变量声明没有概念。当遇到一个新的变量名，TCL将定义一个新的变量。

变量命名

变量的名称可以包含任何字符和长度。甚至可以存在空格被封闭在大括号中的变量，但不建议这样做。

set命令用于指定值的变量。set 命令的语法是：

set variableName value

变量的几个例子如下所示。

#!/usr/bin/tclsh

set variableA 10

set {variable B} test

puts $variableA

puts ${variable B}

当上述代码被执行时，它会产生以下结果。

10

test

正如可以在上面的方案看到，$variableName 用于获取变量的值。

动态类型

TCL是一种动态类型语言。变量的值可以在需要时被动态地转换为所需的类型。例如，一个数字5，其被存储为字符串将做的算术运算时被转换为数字。它如下所示。

#!/usr/bin/tclsh

set variableA "10"

puts $variableA

set sum [expr $variableA +20];

puts $sum

当上述代码被执行时，它会产生以下结果。

10

30

数学表达式

正如在上面的例子中看到，expr是用于表示数学表达式。 Tcl默认精度为12位。为了得到浮点运算的结果，我们应该增加至少一个十进制数字。一个简单的例子说明了上述情况。

#!/usr/bin/tclsh

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特殊变量改变精度。它如下所示。

#!/usr/bin/tclsh

set variableA "10"

set tcl_precision 5

set result [expr $variableA / 9.0];

puts $result

当上述代码被执行时，它会产生以下结果。

1.1111

TCL运算符

运算符是一个符号，告诉编译器执行特定的数学或逻辑操作。 Tcl语言有丰富的内置运算符，运算符提供的以下几种类型：

算术运算符

关系运算符

逻辑运算符

位运算符

三元运算符

本教程将一个一个地来解释算术，关系，逻辑，位及其他运算符。

算术运算符

下表列出了所有Tcl语言支持的算术运算符。假设变量A=10，变量B=20，则：

算术运算实例

关系运算符

下表列出了所有Tcl语言支持的关系运算符。假设变量A=10，以及变量B=20，则：

关系运算符例子

逻辑运算符

下表列出了所有Tcl语言支持的逻辑运算符。假设变量A=1和变量B=0，则：

逻辑运算符例子

位运算符

位运算符适用于位并进行逐位操作。&, |, 和 ^ 的真值表如下：

位运算符适用于位并进行逐位操作。&, |, 和 ^ 的真值表如下：

假设，如果A =60;且B =13;现在以二进制格式它们将如下：

A = 0011 1100

B = 0000 1101

-----------------

A&B = 0000 1100

A|B = 0011 1101

A^B = 0011 0001

通过Tcl语言支持位运算符列在下表中。假设变量A=60和变量B=13，则：

位运算符例子

三元运算符

Tcl运算符优先级

运算符优先级决定术语的表达分组。这会影响一个表达式是如何进行计算。某些运算符的优先级高于其他运算符;例如，乘法运算符的优先级比所述加法运算高。

例如：x =7 + 3* 2;这里，x被赋值13，而不是20，因为运算符 * 优先级高于+，所以它首先被乘以3 * 2，然后加上 7。

这里，具有最高优先级的操作出现在表格上方，那些具有最低出现在底部。在一个表达式中，更高的优先级运算符将首先计算。

运算符优先级示例

Tcl算术运算符

下表列出了所有Tcl语言支持的算术运算符。假设变量A=10，变量B=20，则：

试试下面的例子就明白了所有Tcl语言中可用的算术运算符：

#!/usr/bin/tclsh

set a 21

set b 10

set c [expr $a + $b]

puts "Line 1 - Value of c is $c\n"

set c [expr $a - $b]

puts "Line 2 - Value of c is $c\n"

set c [expr $a * $b]

puts "Line 3 - Value of c is $c\n"

set c [expr $a / $b]

puts "Line 4 - Value of c is $c\n"

set c [expr $a % $b]

puts "Line 5 - Value of c is $c\n"

当编译和执行上面的程序，它会产生以下结果：

Line 1 - Value of c is 31

Line 2 - Value of c is 11

Line 3 - Value of c is 210

Line 4 - Value of c is 2

Line 5 - Value of c is 1

Tcl关系运算符

下表列出了所有Tcl语言支持的关系运算符。假设变量A=10，变量B=20，则：

试试下面的例子就明白了所有的Tcl语言版本的关系运算符：

#!/usr/bin/tclsh

set a 21

set b 10

if { $a == $b } {puts "Line 1 - a is equal to b\n"} else {puts "Line 1 - a is not equal to b\n" }

if { $a < $b } {puts "Line 2 - a is less than b\n"} else {puts "Line 2 - a is not less than b\n"}

if { $a > $b } {puts "Line 3 - a is greater than b\n"} else {puts "Line 3 - a is not greater than b\n}

# Lets change value of a and b

set a 5

set b 20

if { $a <= $b } {puts "Line 4 - a is either less than or equal to  b\n"}

if { $b >= $a } {puts "Line 5 - b is either greater than  or equal to b\n"}

当编译和执行上面的程序，会产生以下结果：

Line 1 - a is not equal to b

Line 2 - a is not less than b

Line 3 - a is greater than b

Line 4 - a is either less than or equal to  -b

Line 5 - b is either greater than  or equal to a

Tcl逻辑运算符

下表列出了所有Tcl语言支持的逻辑运算符。假设变量A=1和变量B=0，则：

试试下面的例子就明白了所有Tcl语言提供的逻辑运算符：

#!/usr/bin/tclsh

set a  5

set b 20

if { $a && $b } {puts "Line 1 - Condition is true\n"}

if { $a || $b } {puts "Line 2 - Condition is true\n"}

# lets change the value of  a and b 

set a  0

set b 10

if { $a && $b } {puts "Line 3 - Condition is true\n"} else {puts "Line 3 - Condition is not true\n" }

if { !($a && $b) } {puts "Line 4 - Condition is true\n" }

当编译和执行上面的程序，会产生以下结果：

Line 1 - Condition is true

Line 2 - Condition is true

Line 3 - Condition is not true

Line 4 - Condition is true

Tcl位运算符

通过Tcl语言支持位运算符列在下表中。假设变量A=60和变量B=13，则：

试试下面的例子就明白了所有Tcl语言中可用的位运算符：

#!/usr/bin/tclsh

set a 60  ;# 60 = 0011 1100   

set b 13  ;# 13 = 0000 1101 

set c [expr $a & $b] ;# 12 = 0000 1100 

puts "Line 1 - Value of c is $c\n"

set c [expr $a | $b;] ;# 61 = 0011 1101 

puts "Line 2 - Value of c is $c\n"

set c [expr $a ^ $b;] ;# 49 = 0011 0001 

puts "Line 3 - Value of c is $c\n"

set c [expr $a << 2] ;# 240 = 1111 0000 

puts "Line 4 - Value of c is $c\n"

set c [expr $a >> 2] ;# 15 = 0000 1111 

puts "Line 5 - Value of c is $c\n"

当编译和执行上面的程序，会产生以下结果：

Line 1 - Value of c is 12

Line 2 - Value of c is 61

Line 3 - Value of c is 49

Line 4 - Value of c is 240

Line 5 - Value of c is 15

Tcl三元运算符

在Tcl中一个重要的运算符是三元运算符。

试试下面的例子来理解Tcl语言的三元运算符：

#!/usr/bin/tclsh

set a 10;

set b [expr $a == 1 ? 20: 30]

puts "Value of b is $b\n"

set b [expr $a == 10 ? 20: 30]

puts "Value of b is $b\n" 

当编译和执行上面的程序，会产生以下结果：

Value of b is 30

Value of b is 20

Tcl运算符优先级

运算符优先级决定术语的表达分组。这会影响一个表达式是如何进行计算。某些运算符的优先级高于其他运算符;例如，乘法运算符的优先级比所述加法运算高。

例如x= 7+ 3 *2;这里，x被赋值13，而不是20，因为运算符 * 优先级高于+，所以它首先被乘以 3 * 2，然后加上7。

这里，具有最高优先级的操作出现在表格上方，那些具有最低出现在底部。在一个表达式，更高的优先级运算符将首先计算。