1、set & unset
1 %set a Hello ;#定义变量 a 并赋值
2 =>Hello
3 %puts $a ;#输出变量值
4 =>Hello
5 %set a “Test Tcl” ;#重新赋值
6 =>Test Tcl
7 %set a ;#输出变量值,此时不加”$”
8 => Test Tcl
9 %puts $a ;#输出变量值,此时要加”$”
10 =>Test Tcl
11 %puts a ;#输出字符”a”
12 => a
13 %set b $a ;#将 a 的值赋给 b
14 =>Test Tcl
15 %puts $b
16 =>Test Tcl
17 % unset a ;#释放变量
18 %puts $a ;#试图输出未定义变量的值
19 => can't read "a": no such variable
2、$ & []
1 %set foo oo
2 =>oo
3 %set dollar foo
4 =>foo
5 %set x $$dollar
6 =>$foo ;#只解释一次,将“ $dollar”用 dollar 的值( foo)代替,
7 ;#命令等效为 set x {$foo},大括阻止替换。
8 % set x {$foo}
9 =>$foo
10 %set y $x
11 =>$foo ; #一轮替换
12
13 % set b [set a 5] ;#set a 5 命令输出的结果赋给 b
14 =>5
15 %puts $b ;#方括号命令替换,expr表示进行数学计算,外围用方括号括起来
16 =>5
17 %set c [expr 5 * 10] ;#将乘式结果赋给 c
18 =>50
3、" " & { }
双引号和花括号将多个单词组织成一个参数,也是一种替换操作。如果花括号是用做替换操作,则它会阻止内部的嵌套替换,如果花括号用做界限符,如过程定义时用做界限过程体时,不阻止替换操作,其他还有 if 条件语句、循环语句、 switch 语句和过程声明、数学表达式等。
%set s hello
=>hello
%puts stdout "The length of \"$s \"is [string length $s]" ;# “string length” 命令是计算
6
Tcl 编程初步
;#字符串长度,用反斜杠”\”来引用特殊字符。
=>The length of hello is 5
%puts stdout {The length of $s is [string length $s]}
=>The length of $s is [string length $s] ;#替换操作被阻止
%set x 10
=>10
(bin) 35 % set y 20
=>20
(bin) 36 % set z [expr {$x + $y}] ;#expr 表示进行数学运算,要用[]括起来
=>30 ;#用{}来组织算术表达式,不阻止$替换操作
% if { $x == 10} { puts “x=$x”}
=> x=10 ;#在条件语句中, {}用来界定条件体和执行体,不阻止内部替换
4、 \
% set x 100
=>100
%set y "$x"
=>100
%set y "\$x"
=>$x ;#引用$符
%puts "he\nllo" ;#回车换行
=>he
llo
%puts "\a" ;#震铃(需要在 tclsh 下运行)
% set b [puts \
$y ] ;#代码换行
=>$x
5、incr
incr 命令根据指定的步长来增加或减少参数的值。当步长为负时,减少参数值;当步长为正
时,增加参数值。默认步长为+1。
%set a 10 ; incr a
=>a=11
%set a 10 ; incr a –1
=> a=9
6、基本命令集
命令 描述
append 将值追加到字符串尾
binary 二进制字符串操作
format 字符串格式化
regexp 正则表达式(用于字符串模式匹配)
regsub 用正则表达式进行字符串模式匹配和替换
scan 字符串分解
string options 字符串操作和命令集
subst 字符替代(替代特殊字符)
- append
%set var1 Hello %set var2 World %append var1 $var2 =>HelloWorld %puts $var1 =>HelloWorld ;#var1 的内容被更改!
- format
-
;#要取第 2 个变元值,即 5。位置说明符的格式为 2$,并用\来引用符号$: % set res [format "%2\$s" 1 5 9] =>5 %puts $res =>5 % set str [format "%3\$s %1\$s %2\$s" "are" "right" "You"] => You are right
-
1 %format "%x" 20 2 =>14 ;# 将 20 转换为十六进制数 3 %format "%8x" 20 4 => 14 ;# 将 20 转换为十六进制数,8 位数据宽度,右对齐 5 %format "%08x" 20 6 7 =>00000014 ;#与上一命令相似,但用 0 添齐 8 %format "%-8x" 20 9 =>14 ;#宽度 8 位,左对齐 10 %format "%#08x" 20 11 =>0x000014 ;#将 20 转换为十六进制数,并添加前缀”0x”, 12 ;#总宽度为 8 为,右对齐(默认),前导空格用 0 补齐。 13 % set c [format %c%e%c 40 30000 41 ] 14 => ( 3.000000e+004) ;#%c 将整数转换为对应的 ASCII 字符, 40 和 41 分别对应”(“和”)” 15 % set num [scan Aa %c var1 ] 16 => 1 ;#将字符串”Aa”的第一个字符”A”转换为对应整数, 17 ;#并赋值给 var1 变量,返回成功转换个数 18 % puts $var1 19 => 65 ;#字符 A 对应的整数
上例最后一个 format 格式命令中, ”%c”一个整数转换为对应 ASCII 字符输出
- scan
-
%set num [scan "abcABC" "%c%c " var1 var2] => 2 %puts "$var1 $var2" => 97 98 % set num [scan "abcABC" "%c%c" ] => 97 98 %puts $num => 97 98 ;#忘记指定输出变量的结果 ;#格式描述说明要扫描小写的 a 到 z 区间的连续字符,用到了花括号表明是一个集合 % scan "abcABC" {%[a-z]} res => 1 % puts $res => abc % scan "ABCabc" {%[A-b]} res => 1 % puts $res => ABCab % scan "ABCab" {%[^a-b]} res =>1 ;#匹配非 a 到 b 的字符 % puts $res =>ABC % scan ABCab {%2[^a-b]} res =>1 ;#照样可以指定匹配字符数 % puts $res =>AB
- binary
-
1 %set b [binary format "s" 25664] 2 => @d ;#整数 25664 以十六进制表示为 6440H。 “s”为格式说明 3 ;#符,按照由低到高字节顺序存储。 4 % puts $b ;#数值被压缩为两个字节,输出的结果为两个压缩字节对 5 => @d ;#应的两个字符, @的 ASCII 码为 40H, d 的 ASCII 码为 64H 6 % binary scan $b "s" var 7 => 1 ;#返回转换成功的次数 8 % puts $var ;#binary scan 从二进制数 b 中将数值恢复并存入变量 9 var 10 => 25664 11 % binary scan 1 c var ;#从字符 1 中恢复数值。字符 1 的 ASCII 码=31H, 31H 对应十 12 =>1 ;#进制整数为 49 13 % puts $var 14 => 49
-
subst
-
% subst { a=$a sum=[expr 1 + 2]} => a=foo bar sum=3 % subst { a={$a} sum={[expr 1 + 2]}} => a={foo bar} sum={3} ;#数据内部的花括号不阻止替换