2 Tcl输出、赋值与替换

2.1 puts

Tcl的输出命令是puts，将字符串标准输出channelled。语法中两个问号之间的参数为可选参数。

# 例1
puts hello

# 输出
hello

# 例2
puts -nonewline "hello hello"

# 输出
hello hello 

• 如果输出一段有空格的文本，则要用双引号（""）或花括号（{}）起来。
• -nonewwhile选项告诉puts不输出回车换行。
  注意：双引号和花括号的作用是将多个词组织成一个变元，但是""和{}是由区别的。""在进行替换操作的时候，前者允许替换操作发生；{}会阻止替换。

2.2 set

set varName [value]
unset vaName

• set：变量定义和赋值命令，不必制定变量值得类型，因为变量值得类型只有一种--字符串。在为变量进行赋值的时候，会为变量开辟一段内存空间来存储变量值
• set VarName不跟变量的值，如果变量已经定义，则返回变量的值，效果和puts相同；变量不存在会返回错误信息。相当于查询的作用。
• unset与set的作用相反，它取消变量的定义，并释放变量所占的内存空间
• 通过前置的“$”符，可以引用变量的值（替换）。

set a Hello       # 定义变量a并为其赋值
puts $a           # a=Hello

set a "Test Tcl"  # 重新给a赋值
set a             # 输出Test Tcl

puts a            # 输出字符a

set b $a          # 定义变量b，并将a的值赋值给b  b=Test Tcl
puts $b           # b = Test Tcl

unset a           # 释放变量

puts $a           # 试图输出未定义的变量值，会进行输出

• puts $a由两步完成：首先用a的值替换$a，替换后的命令变为puts {Test Tcl}，然后输出字符串。也就是说先替换后输出。
• 数组定义在后面进行介绍。

2.3 替换

2.3.1 $

$实现引用替换，用来引用参数值。
tcl在使用$进行引用替换的时候，只会进行一次解释，嵌套使用$$xxxx，只有一个起作用。

set foo oo     
set dollar foo

set x $$dollar        # x = $foo

set y {$foo}          # y = $foo  {}阻止替换

set z $x              # z = $foo

• $$dollar，将$dollar用dollar的值foo进行替换，前面的$不起作用，作用字符输出。

2.3.2 []

方括号[]书写完整的命令替换，[]中的执行后，返回结果。

set b [set a 5]        # set a 5命令输出的结果赋值给b b=5
puts b                 # b = 5

set c [expr 5*10]      # 将乘式的结果赋值给c
puts c                 # c = 50

2.3.3 ""和{}

""和{}将多个单词阻止在一起组成一个参数，也是一种替换操作。一般在""内进行正常替换，在{}中的替换可能被阻止。当{}用于组织算数表达式、if条件和函数内执行体的代码块的时候，不会阻止替换。

set s hello

puts stdout "The length of\"$s\" is [string length $s]"

=>The length of hello is 5

#  ""内再使用双引号的时候要使用转义字符。
# string length $s 计算字符串s的字符串长度

puts stdout {The length of $s is [string length $s]}   # 替换操作被阻止
=>The length of $s is [string length $s]

set x 10
set y 20
set z [expr{$x + $y}]
=>30

if{$x == 10} {puts "x = $x"}
=>x=10

• expr表示进行数学运算，要用[]括起来
• 用{}来组织算数运算表达式，不阻止$替换操作
• 在条件语句中，用{}来界定条件体和执行体，不阻止内部的替换

2.3.4 \

反斜杠“\”的作用是引用特殊字符或者续行。
应用特殊字符的操作是告诉TCl解释器需要使用一些特殊的字符，如$符或者完成特定功能比如\n，\t,\b.....,相当于转义字符的作用。
如果一条语句过长，可以使用“\”，将一行语句分为多行进行书写。

set x 100
set y $x          # y = 100

set z "\$x"       # z = $x   \$表示告诉tcl使用$符号

puts "he \nllo"   # \n换行
=>he
  llo

puts "\a"         # 振铃

set b [puts \
   $y] 

注意：当用set命令为参数，赋值，并""用作续行符的时候，不要在反斜杠后面同一行上输入任何符号，包括空格和制表符。否则反斜杠（\）就起不到续行的功能，容易引起错误。

__EOF__