tcl腳本expr

⑴ TCL編程的語法規則

TCL的語法規則：

1、解釋器
在Tcl的數據結構中的核心是Tcl_Interp.一個解釋器包含了一套命令，一組變數和一些用於描述狀態的東西。每一個 Tcl命令是 在特定的Tcl_Interp中運行的，基於Tcl的應用程序可以同時擁有幾個Tcl_Interp。Tcl_Interp是一個輕量級的結構，可以快速的新建和刪除。

2、數據類型
Tcl只支持一種數據結構：字元串（string）。所有的命令，命令的所有的參數，命令的結果，所有的變數都是字元串。請牢記這一點，所有的東西都是字元串。這是它比較有特點的方面字元串有三種形式：命令(command),表達式(expresion)和表(list)。

3、Basic Command Syntax 基本語法
Tcl有類似於shell和lisp的語法，當然也有許多的不同。一 條Tcl的命令串包含了一條或多條命令用換行符或分號來隔開，而每一條命令包含了一個域(field)的集合，域使用空白分開的，第一個域是一個命令的名字，其它的是作為參數來傳給它。
例如：
set a 22 //相當於C中的 a=22 a是一個變數這條命令分為三個域：1：set 2：a 3：22 set使用於設置變數的值的命令，a、20 作為參數來傳給它，a使它要操作的變數名，22是要付給的a值。
Tcl的命令名可以是內置的命令也可以是用戶建的新命令，如果是用戶用戶建的新命令應用程序中用函數Tcl_CreateCommand來創建。所有的參數作為字元串來傳遞，命令自己會按其所需來解釋的參數的。命令的名字必須被打全，但 Tcl解釋器找不到一同名的命令時會用 unknown命令來代替。
在很多場合下，unknown 會在庫目錄中搜尋，找到一個的話，會自動生成一個Tcl命令並調用它。unknown經常完成縮略的命令名的執行。但最好不要使用。

4、注釋
和shell很象，第一個字母是"#"的Tcl字元串是注釋。
其他細節規則
Grouping arguments with double-quotes 用雙引號來集群參數，目的在於使用有空白的參數。
例如：
set a "this string contains whitespace"
如果一個參數一雙引號來開始，該參數會一直到下一個雙引號才結束。其中可以有換行符和分號。
Variable substitution with $ 用美元符進行變數替換說白了就是引用該變數。
例如：
set a hello
set b $a // b = "hello" 實際上傳給set命令的參數
//是b,"hello"
set c a // b = "a"
Command substitution with brackets 命令子替換（用方括弧）
例如：
set a [set b "hello"]
實現執行 set b "hello" 並用其結果來替換源命令 中的方括弧部分，產生一條新命令
set a "hello" //"hello" 為 set b "hello" 的返回值
最終的結果是b="hello" a="hello"
當命令的一個子域以方括弧開始以方括弧結束，表示要進行一個命令子替換。並執行該子命令，用其結果來替換原命令中的方括弧部分。方括弧中的部分都被視為Tcl命令。
如下一個復雜一點的例子：
set a xyz[set b "abc"].[set c "def"]
//return xyzabcdef
Backslash substitution 轉移符替換
轉移符時間不可列印字元或由它數意義的字元插入進來。這一概念與C語言中的一樣。
 Backspace (0x8).
f Form feed (0xc).
Newline (0xa).
Carriage-return (0xd).
Tab (0x9).
v Vertical tab (0xb).
{ Left brace (`{").
} Right brace (`}").
[ Open bracket (`[").
] Close bracket (`]").
$ Dollar sign (`$").
sp Space (` "): does not terminate argument.
; Semicolon: does not terminate command.
" Double-quote.
Grouping arguments with braces 用花擴括弧來集群參數
用花擴括弧來集群參數與用雙引號來集群參數的區別在於：用花擴括弧來集群參數其中的三種上述的子替換不被執行。而且可以嵌套。
例如：
set a {xyz a {b c d}}//set收到兩個參數 a "xyz a {b c d}"
eval {
set a 22
set b 33
}//eval收到一個參數 "set a 22
set b 33"

5、命令綜述
1．一個命令就是一個字元串（string）。
2．命令是用換行符或分號來分隔的。
3．一個命令由許多的域組成。第一個於是命令名，其它的域作為參數來傳遞。
4．域通常是有空白（Tab橫向製表健 Space空格）來分開的。
5．雙引號可以使一個參數包括換行符或分號。三種子替換仍然發生。
6．花括弧類似於雙引號，只是不進行三總體換。
7．系統只進行一層子替換，機制替換的結果不會再去做子替換。而且子替換可以在任何一個域進行。
8．如果第一個非控字元是`#",這一行的所有東西都是注釋。

6、表達式
對字元串的一種解釋是表達式。幾個命令將其參數按表達式處理，如：expr、for 和 if,並調用Tcl表達式處理器(Tcl_ExprLong,Tcl_ExprBoolean等)來處理它們。其中的運算符與C語言的很相似。
!
邏輯非
* / % + -
< >>
左移 右移 只能用於整數。
> = == !=
邏輯比較
& ^ |
位運算和 異或 或
&&''
邏輯"和" "或"
x y : z
If-then-else 與C的一樣
Tcl 中的邏輯真為1，邏輯假為0。
一些例子：
5．/ 4.0
5．/ ( [string length "abcd"] + 0.0 )
計算字元串的長度 轉化為浮點數來計算
"0x03" > "2"
"0y" < "0x12"
都返回 1
set a 1
expr $a+2
expr 1+2
都返回 3

⑵ TCL語言的變數

不像c，Tcl的變數在使用前不需要聲明。Tcl的變數在它首次被賦值時產生，使用set命令。變數可以用unset命令刪除，雖然並不強制需要這樣做。
變數的值通過$符號訪問，也叫變數交換。
Tcl是一個典型的」弱類型定義」語言，這意味者任何類型可以存儲在任何變數中。例如，同一個變數可以存儲數字，日期，字元串甚至另一段Tcl script.
Example 1.1:
set foo john
puts Hi my name is $foo
Output: Hi my name is john
Example 1.2:
set month 2
set day 3
set year 97
set date $month:$day:$year
puts $date
Output: 2:3:97
Example 1.3:
set foo puts hi
eval $foo
Output: hi
在這個例子里，變數foo存儲了另外一段Tcl script.
表達式
包括數學表達式，關系表達式，通常用 expr命令。
Example 2.1:
expr 0 == 1
Output: 0
Example 2.2:
expr 1 == 1
Output: 1
兩數比較，true則輸出1，false輸出0
Example 2.3:
expr 4 + 5
Output: 9
Example 2.4:
expr sin(2)
Output: 0.909297
命令傳遞
以運算結果替代Tcl命令中的部分
Example 3.1:
puts I am [expr 10 * 2] years old, and my I.Q. is [expr 100 - 25]
Output: I am 20 years old, and my I.Q. is 75
方括弧是命令傳遞的標志
Example 3.2:
set my_height 6.0
puts If I was 2 inches taller, I would be [expr $my_height + (2.0 / 12.0)] feet tall
Output: If I was 2 inches taller, I would be 6.16667 feet tall
命令流控制
Tcl有判斷流轉(if-else; switch)和循環控制(while; for; foreach)
Example 4.1:
set my_planet earth
if {$my_planet == earth} {
puts I feel right at home.
} elseif {$my_planet == venus} {
puts This is not my home.
} else {
puts I am neither from Earth, nor from Venus.
}
set temp 95
if {$temp < 80} {
puts It's a little chilly.
} else {
puts Warm enough for me.
}
Output:
I feel right at home.
Warm enough for me.
Example 4.2:
set num_legs 4
switch $num_legs {
2 {puts It could be a human.}
4 {puts It could be a cow.}
6 {puts It could be an ant.}
8 {puts It could be a spider.}
default {puts It could be anything.}
}
Output:
It could be a cow.
Example 4.3:
for {set i 0} {$i < 10} {incr i 1} {
puts In the for loop, and i == $i
}
Output:
In the for loop, and i == 0
In the for loop, and i == 1
In the for loop, and i == 2
In the for loop, and i == 3
In the for loop, and i == 4
In the for loop, and i == 5
In the for loop, and i == 6
In the for loop, and i == 7
In the for loop, and i == 8
In the for loop, and i == 9
Example 4.4:
set i 0
while {$i < 10} {
puts In the while loop, and i == $i
incr i 1
}
Output:
In the while loop, and i == 0
In the while loop, and i == 1
In the while loop, and i == 2
In the while loop, and i == 3
In the while loop, and i == 4
In the while loop, and i == 5
In the while loop, and i == 6
In the while loop, and i == 7
In the while loop, and i == 8
In the while loop, and i == 9
Example 4.5:
foreach vowel {a e i o u} {
puts $vowel is a vowel
}
Output:
a is a vowel
e is a vowel
i is a vowel
o is a vowel
u is a vowel
Proceres

⑶ tcl 語法基礎

注釋：

puts {Hello, World - In Braces}； # 這種注釋方式才是正確的

puts {Bad comment syntax example}  # *Error* - there is no semicolon!這是一個錯誤，因為tcl的語法規定，命令的參數結束的方式為;或者新的一行

變數：

初始化一個變數用set關鍵字： 

 # set關鍵字可以接受兩個參數：並返回第一參數（也就是變數名）的內容（第二個參數）

#set關鍵字也可以接受一個參數，如果只接受一個參數的時候返回這個變數的內容

set  x  10  # 定義變數x的值為10

set  y  x+100  # 定義變數y的值為 x+100  這里會把x+100 看成整體的一個字元串，這里可以看出tcl默認都認為是字元串來出來

set  y  $x+100  # 定義變數y的值為 10+100 ，這里$符號告訴解釋器x是一個變數而不是字元串

set  y [expr  $x+100]  # 定義變數y的值為110，當tcl解釋器遇到[] 的時候會去執行裡面的內容並返回結果。

set  y  "$x   ddd" # 這里雙引號的作用是允許這個字元串中有空格

set   y    {$x 10}   # 這里的x不會被解釋，所以{}的作用是，直接定義 一整串字元串

puts：轉義符

set Z Albany

set Z_LABEL "The Capitol of New York is: "

puts "$Z_LABEL $Z"  ;# Prints the value of Z

puts "$Z_LABEL \$Z"  ;# Prints a literal $Z instead of the value of Z

puts "\nBen Franklin is on the \$100.00 bill"

set a 100.00

puts "Washington is not on the $a bill"    ;# This is not what you want

puts "Lincoln is not on the $$a bill"      ;# This is OK

puts "Hamilton is not on the \$a bill"    ;# This is not what you want

puts "Ben Franklin is on the \$$a bill"    ;# But, this is OK

puts "\n................. examples of escape strings"

puts "Tab\tTab\tTab"

puts "This string prints out \non two lines"

puts "This string comes out\

on a single line"

數組：

set a [list 1 2 3 4]    # 初始化一個列表

lappend a 5 # 追加一個變數，注意這里的列表a沒有加$ 

lindex $a 1 # 獲取列表第二值，這里加上了$

llength $a  # 返回列表的長度

lrange $a 0 2 # 返回前三個數這里取到了第三個值

字元串格式化：

set name john

set age 20

set msg [format "%s is %d years old" $name $age] # 格式化

puts $msg