語言簡介
Tcl是一種很通用的腳本語言，它幾乎在所有的平台上都可以解釋運行，功能強大。是tool command language的縮寫，發音為 "tickle”。 實際上包含了兩個部分：一個語言和一個庫。 首先，Tcl是一種簡單的腳本語言，主要使用於發布命令給一 些互交程序如文本編輯器、調試器和shell。它有一個簡單的語法 和很強可擴充性，Tcl可以創建新的過程以增強其內建命令的能力。其次，Tcl是一個庫包，可以被嵌入應用程序，Tcl的庫包含了一個分析器、用於執行內建命令的例程和可以使你擴充（定義新的 過程）的庫函數。應用程序可以產生Tcl命令並執行，命令可以由用戶產生，也可以從用戶接口的一個輸入中讀取（按鈕或菜單等）。 但Tcl庫收到命令后將它分解並執行內建的命令，經常會產生遞歸的調用。
基本語法
1.命令結構：
commandName arguments。每條命令之間通過換行或者；隔開。例如：
2.注釋：
使用#注釋，不過要注意的是下面的注釋是錯誤的：
因為tcl解析器總是認為一條命令應該以換行或者分號結束，其他的在同一行中都認為是參數。所以正確的應該是：
其實對於習慣於.net編程的人來說每行末尾加個;應該是理所當然的事情，所以這個對我們應該沒有什么不習慣的。
3.數據類型：
tcl不支持.net中的形如int , double ,char等等類型，唯一支持的就是string類型。也就是說一個變量可以在不同的時刻理解為不同的類型。
4.變量
tcl可以定義兩種類型的變量：變量和數組。
變量：在tcl變量不需要聲明就可以直接賦值。給變量賦值的例子：
|
1
2
|
set ba 1;
set ma “qian li feng”;
#加引號的作用是為了告訴編譯器包括空格
|
取得變量的值可以在對應的變量名前面加$來取得，例如：
數組：數組也不需要聲明，直接賦值，例如：
|
1
2
|
set qian(0) 1;
set qian(1) 2;
|
一個比較有意思的地方是數組下標可以不按照順序來寫，也不一定是數字，可以是字符串。例如：
|
1
2
3
|
set qian(123) f;
set qian(6789) fs;
set qian(good) yes;
|
我們可以使用puts $qian(123);的形式來獲得數組的內容。當然tcl數組也支持多維數組，聲明形式為：
|
1
|
set qian(1,1,1,1,1) fs;
#隨便多少維
|
如果我們要查看某個已經賦值的數組的信息，可以使用parray命令：如：
|
1
|
parray qian;
#將打印出qian數組的所有信息
|
5.字符串操作
string 命令基本語法如下（這里的string1，string2可以是字符串也可以是變量，option是下列選項之一）
|
1
|
string option string1 string2;
|
option的操作選項：
compare 按照字典的排序方式進行比較。根據string1 <,=,>string2分別返回-1,0,1
first 返回string2中第一次出現string1的位置，如果沒有出現string1則返回-1
last 和first相反
trim 從string1中刪除開頭和結尾的出現在string2中的字符
tolower 返回string1中的所有字符被轉換為小寫字符后的新字符串
toupper 返回string1中的所有字符串轉換為大寫后的字符串
length 返回string1的長度
例子：
|
1
|
string length $qian;
#將返回變量qian的長度
|
6.數字操作
因為tcl中只有一個string類型的變量，所以當要操作數字進行運算的時候，tcl提供了incr和expr兩個操作數。
incr的基本用法為：
incr variable integer（variable必須為數字）
|
例如我要將一個數字加3
|
1
2
|
set a 3;
incr a 3;
#將a加3，如果要減3，則為 incr a –3;
|
默認的incr a等同於.net里面的a++的意思，即本身自增1。
expr的基本語法為：
expr是為了提供更加復雜的操作而設計的一個語法，比如運算乘除法等等。在執行算術操作的時候必須將expr命令放在算術操作之前。例如：
|
1
2
|
set a 20; set b 4;
set c [expr $a/$b];
#此時的c的值為5
|
除此之外，expr還能夠識別一些函數及其返回值如下：
abs(x) x的絕對值
round(x) x舍入后得到的整數值
sin(x) x的正弦
…………………………………..
舉個例子：
|
1
|
set a [expr sin(0.3)];
#計算0.3的正弦
|
7.轉義
在tcl中可以使用{}將需要轉義的字符串括起來。例如：
|
1
2
|
set a 5;
set b {$a};
#此時b的值為”$a“，而不是5。
|
8.流控制
if 控制流
基本語法：
需要注意的是if….else,if……elseif…中的else，elseif必須要和if的后面一個{在同一行。
switch控制流：
基本語法：
|
1
2
3
4
5
6
|
switch
$x
{
數值1 { 操作1 ;}
數值2 { 操作2 ;}
}
|
9.循環
tcl提供三種循環命令，分別為：for，foreach，while。此外tcl還提供兩個循環控制命令。
注意：這個三個命令中的程序塊的開始花括號必須要和三個命令同一行。
while基本語法：
while {條件} { 程序塊 }
foreach 將在一組變元中進行循環，並且每次都將執行他的循環體。基本結構：
foreach variable {items} {block}
這里的variable是變量的名字，便於block中使用。舉例：
|
1
2
3
4
5
|
foreach
element {0 m n b v} {
switch
$element
{
}
}
|
for是最常用的循環。其基本結構為：
for {initialization} {condition} {increment} {body}
例如：
|
1
|
for
{set i 0} {
$i
< 10} {incr i} {puts
$i
;}
|
轉載：
參考資料：
