TCL基本语法与指令

《TCL基本语法与指令》由会员分享，可在线阅读，更多相关《TCL基本语法与指令（48页珍藏版）》请在金锄头文库上搜索。

1、 启航 UG 编程培训中心启航 UG 编程培训中心 联 系 人 殷师傅 QQ 860600036 电 话 13714521106 13631624034 地址 深圳 龙华 注 背面续 TCL Tutorial 基本語法與指 Original written by Rick In 2003 Revision by maa In 2004 6 启航 UG 编程培训中心启航 UG 编程培训中心 联 系 人 殷师傅 QQ 860600036 电 话 13714521106 13631624034 地址 深圳 龙华 注 背面续 目 一 TCL 簡介 3 二 TCL 語法 4 三 資 型態 9 Strin

2、g 字 資 態 9 List 資 型態 17 Array 陣 資 型態 20 四 控制結構 22 If Then Else 23 Switch 24 While 26 For 27 Foreach 28 Break 與 Continue 29 Catch 29 五 Procedure 30 TCL 內建指 32 启航 UG 编程培训中心启航 UG 编程培训中心 联 系 人 殷师傅 QQ 860600036 电 话 13714521106 13631624034 地址 深圳 龙华 注 背面续 一 TCL 簡介 一 TCL 簡介 TCL 的全名為 Tool Command Language 唸作

3、Tickle 事實上它是一個 Scripting Language 俗稱 劇本語言或腳本語言 也是一個直譯器 Interpreter TCL 語言有三個特色 1 語法簡單 容 上手 2 TCL 的身份如同 UNIX 的 Shell languages 像是 Bourne Shell sh C Shell csh Korn Shell ksh 與 Perl 一樣 用 執 與控制系統上的程式 TCL 具備足夠的程式化能 variable flow control procedure 與存取檔案 程序 Process 及網 的功能 供組裝既有軟體元件以建 符合需求的新工具 3 可內嵌 embed 到

4、應用程式中 讓軟體使用者透過程式員提供的高階 TCL 指 自訂應用程 式的 為 除 上 三個主要特色外 底下所 的幾點也是 TCL 語言成功的原因 跨平台 可在各種系統 UNIX Windows Macintosh 等 執 TCL 程式 強大的字 處 能 常規表示式 Regular Expressions 協助程式員使用表示式的規則或樣 式 pattern 用 搜尋 比對 粹取或是取代符合樣式的複雜字 可用 C 語言開發 TCL Extension Library 擴充 TCL 的指 與能 如著名的 Tk extension 讓 TCL 擁有 GUI Programming 的功能 expec

5、t extension 用 開發可與應用程式互動式溝通 的程式 已有一大堆可在各式場合發揮效用的 package 諸如各種網 應用 ftp http email dns msn 启航 UG 编程培训中心启航 UG 编程培训中心 联 系 人 殷师傅 QQ 860600036 电 话 13714521106 13631624034 地址 深圳 龙华 注 背面续 icq 等 圖 形 化 介 面 開 發 TK BWidget Tktable SpecTCL VisualTCL ActiveState KOMODO 物件導向程式開發 incrTcl XOTcl SNIT 等 以及資 庫程式開發 Meta

6、Kit daFT 等 總結 TCL 語言就像是一瓶膠水一般 只要收集可資運用的應用程式與 TCL Package 在這些 介面上塗塗抹抹 寫個簡單的 TCL Script TCL 指 的集合 在短暫的時間內就可組裝出一個新工 具 因此寫 TCL Script 開發軟體的過程就像是在玩 高積木一般 启航 UG 编程培训中心启航 UG 编程培训中心 联 系 人 殷师傅 QQ 860600036 电 话 13714521106 13631624034 底下是一個簡單的 TCL Script 與執 後的輸出 地址 深圳 龙华 注 背面续 二 TCL 語法 二 TCL 語法 TCL Script 可視為

7、一個包含許多 TCL 指 TCL command 的程式 一個 TCL 指 的基本語法 為 command arg1 arg2 arg3 在 TCL 語言中 每 指 的第一個單字為指 名稱 空白字元用 分隔指 名稱與各個個別的 個別指 的分隔是以分號與換 符號作為分隔符號 一個 如果超過一個英文單字 亦即字 中間穿插空白或其它符號 可用雙引號與大括號將 這些元素組成 grouping 單一一個 使用雙引號與大括號的差別 在於 TCL 針對雙引號中 的字 會做置換處 substitution 如變 值的代換或是執 包含於字 中的 TCL 指 使 用中括號 表示 而對於大括號所括住的內容 TCL

8、則 會有這些置換處 Demo1 tcl puts stdout one puts stdout two set x 4 set y 6 puts x y expr x y puts x y expr x y puts Hello n nTCL Demo1 tcl one two 4 6 10 x y expr x y 启航 UG 编程培训中心启航 UG 编程培训中心 联 系 人 殷师傅 QQ 860600036 电 话 13714521106 13631624034 地址 深圳 龙华 注 背面续 Hello TCL 下表所 的符號在 TCL 語言裏有特殊的意義 启航 UG 编程培训中心启航 U

9、G 编程培训中心 联 系 人 殷师傅 QQ 860600036 电 话 13714521106 13631624034 地址 深圳 龙华 注 背面续 置換符號置換符號 substitution symbols 變 值置換符號 符號用 取出指定變 的值 底下 用 set 指 設定 x 變 的值 並用 puts 指 輸出 x 的內容到 Console set x 5 puts stdout x 如上 最後一 程式碼 取出變 值時需在變 名稱前加上 符號 命 置換符號 TCL 將中括號中的內容視為一個指 會執 其中的指 並將結果傳回 如 Demo1 tcl L5 puts x y expr x y

10、在做完 x 與 y 個變 的置換後 TCL 解譯器遇到中括號認 為其中為另一個可執 的指 指 名稱為 expr 在執 expr 指 前 TCL 先將 x 與 y 值置換後 傳遞給 expr 指 並呼叫執 之 expr 指 用 做 學式子的運算 會負責 剖析 並做 學運算 群組群組 grouping symbols 雙引號可將多個元素組成單一一個 引號內的內容會被 TCL 進 置換處 包括變 置換與命 置換 启航 UG 编程培训中心启航 UG 编程培训中心 联 系 人 殷师傅 QQ 860600036 电 话 13714521106 13631624034 地址 深圳 龙华 注 背面续 大括號的

11、功能與雙引號相同 但 TCL 會對括號中的內容做 任何解釋或處 會照將括號中的內容視為一個 照本宣 科原原本本地傳遞給指 去處 如 Demo1 tcl L6 puts x y expr x y 因為 TCL 對大括號中的內容 做任何處 因此它的輸出為 x y expr x y 另外 TCL 會將大括號中的換 符號視為一個指 的結束 如果一個指 的 很長時 我們 就可以 用大括號這樣寫 把換 符號當成是 的一部份 puts x y expr x y 其它其它 和 C base 語言一樣 反斜線可將特殊的字元做跳脫處 如 n 代表換 符號 在 TCL 語言裏 如果一個指 超過一 亦可在 尾使用反斜

12、線做為續 的符號 VB 指 如果超 過一 則是在 尾用底線符號代表續 分號與換 號 代表一個 TCL 指 的結束符號 註解符號 通常我們會在一 程式碼的第一個字元打上 符 號 以代表本 程式為註解 注意 如果在 符號前有 TCL 指 必須像這樣做 puts hello here is comment 启航 UG 编程培训中心启航 UG 编程培训中心 联 系 人 殷师傅 QQ 860600036 电 话 13714521106 13631624034 地址 深圳 龙华 注 背面续 亦即 在 符號前加上一個分號代表前面指 的結束 如果 這麼做 那 TCL 會把 視為一個 丟給 puts 指 去 做

13、處 變 變 TCL 變 的可以隨時建 用事先宣告 變 名稱的取法也沒有任何限制 所以可以使用任何字元 為變 命名 甚至變 名跟指 名稱相同也沒問題 使用時只有一點要注意的 就是 TCL 是大小 寫有別的語言 通常 我們以 set 指 設定變 值 set x 5 set y 6 set PI 3 14 set PI 2 6 28 注意 變 名稱是 PI 2 puts PI 2 set PI TCL 的 set 指 除 設定變 值的用途外 也可以用 取出變 的內容 如上 程式最後一 使用 set 指 取出 PI 的值 注意 這邊 用在變 名稱前加上 符號 unset 指 用 刪除一個或多個變 釋放

14、記憶體空間 unset x y PI 我們可以使用 info exists 指 檢查變 是否存在 如 incr 指 使用時 變 必須先建 才能 為變 進 加法運算 此時 可使用 info exists 先檢驗變 的存在 if info exists counter 启航 UG 编程培训中心启航 UG 编程培训中心 联 系 人 殷师傅 QQ 860600036 电 话 13714521106 13631624034 地址 深圳 龙华 注 背面续 set counter 0 else incr counter counter 加 1 TCL 在執 時會建 一些全域變 可以 用 info globa

15、l 出有哪些全域變 info global argv argv0 tcl version tcl interactive var auto oldpath errorCode auto path errorInfo unknown handlers unknown handler order auto index env tcl patchLevel argc tcl libPath tcl platform tcl library 其中幾個比較常用的 像是 argc 存放程式的命 個 argv0 是目前執 的 TCL Script 名 稱 argv 則是存放所有命 的 list env 陣

16、存放系統的環境變 而 tcl version 會告訴你 目前的 TCL 版本為何 置換與群組處 Substitution and Grouping 置換與群組處 Substitution and Grouping 底下是 TCL 置換處 與群組的幾點規則整 TCL 指 的 是以空白字元分隔 可以使用雙引號或大括號將多個元素組成一個 如果是以大括號組出一個 TCL 會對括住的內容進 任何置換 在對應的結束大括號出 現前 任何字元都將視為 的一部份 包含換 符號 分號或是內部巢 的大括號 如果是以雙引號組出一個 則在對應的結束雙引號出現前 雙引號中的內容會被 TCL 進 置換動作 如果 或是雙引號內的單字是以變 符號 為開頭 則 TCL 為會進 變 的置換 如果 或是雙引號中有中括號 則在對應的中括號出現前 TCL 會對中括號中的內容進 指 启航 UG 编程培训中心启航 UG 编程培训中心 联 系 人 殷师傅 QQ 860600036 电 话 13714521106 13631624034 地址 深圳 龙华 注 背面续 的置換 因為 TCL 是以空白字元作為 分隔符號 因此要避免下 的錯誤