|
Tcl 語法 Tcl是一種很通用的腳本語言，它幾乎在所有的平臺(tái)上都可以釋運(yùn)行，其強(qiáng)大的功能和簡(jiǎn)單精妙的語法會(huì)使你感到由衷的喜悅，這片文章對(duì) Tcl有很好的描述和說明。如果你看起來很吃力，那是因?yàn)?Tcl與一般的語言有一些不同之處，剛開始可能有一些不理解，但很快就會(huì)掌握的。請(qǐng)堅(jiān)持一下,我能堅(jiān)持寫完，你至少也應(yīng)該堅(jiān)持讀一遍吧！ Tcl Overview 這篇文章里包含了幾乎 Tcl 的全部。文章的作者是Tcl的締造者John Ousterhout，對(duì)Tcl的詮釋非常清楚。 Introduction 簡(jiǎn)介 Tcl 代表 "tool command language" 發(fā)音為 "tickle." 。它實(shí)際上包含了兩個(gè)部分：一個(gè)語言和一個(gè)庫。 首先，Tcl是一種簡(jiǎn)單的腳本語言，主要使用于發(fā)布命令給一些互交程序如文本編輯器、調(diào)試器和shell。它有一個(gè)簡(jiǎn)單的語法和很強(qiáng)可擴(kuò)充性，Tcl可以創(chuàng)建新的過程以增強(qiáng)其內(nèi)建命令的能力。 其次，Tcl是一個(gè)庫包，可以被嵌入應(yīng)用程序，Tcl的庫包含了一個(gè)分析器、用于執(zhí)行內(nèi)建命令的例程和可以使你擴(kuò)充（定義新的過程）的庫函數(shù)。應(yīng)用程序可以產(chǎn)生Tcl命令并執(zhí)行，命令可以由用戶產(chǎn)生，也可以從用戶接口的一個(gè)輸入中讀?。ò粹o或菜單等）。但Tcl庫收到命令后將它分解并執(zhí)行內(nèi)建的命令，經(jīng)常會(huì)產(chǎn)生遞歸的調(diào)用。 應(yīng)用程序使用Tcl作為它的命令語言有三個(gè)好處： 1 Tcl提供了標(biāo)準(zhǔn)語法，一旦用戶掌握了Tcl就可以很容易的發(fā)布命令給基于Tcl的程序。 2 Tcl實(shí)現(xiàn)了很多的功能，使你的工作變得很方便。 3 TCl可作為程序間通信的接口。 Tcl Interpreters 解釋器 在Tcl的數(shù)據(jù)結(jié)構(gòu)中的核心是Tcl_Interp.一個(gè)解釋器包含了一套命令，一組變量和一些用于描述狀態(tài)的東西。每一個(gè) Tcl命令是在特定的Tcl_Interp中運(yùn)行的,基于Tcl的應(yīng)用程序可以同時(shí)擁有幾個(gè)Tcl_Interp。Tcl_Interp是一個(gè)輕量級(jí)的結(jié)構(gòu)，可以快速的新建和刪除。 Tcl Data Types 數(shù)據(jù)類型 Tcl只支持一種數(shù)據(jù)結(jié)構(gòu)：字符串（string）。所有的命令，命令的所有的參數(shù)，命令的結(jié)果，所有的變量都是字符串。請(qǐng)牢記這一點(diǎn)，所有的東西都是字符串。 然而字符串的實(shí)際解釋是依賴于上下文或命令的。它有三種形式：命令(command), 表達(dá)式(expresion)和表(list)。下面會(huì)討論細(xì)節(jié)。 Basic Command Syntax 基本語法 Tcl有類似于shell和lisp的語法，當(dāng)然也有許多的不同。一條Tcl的命令串包含了一條或多條命令用換行符或分號(hào)來隔開，而每一條命令包含了一個(gè)域(field)的集合，域使用空白分開的，第一個(gè)域是一個(gè)命令的名字，其它的是作為參數(shù)來傳給它。 例如： set a 22 //相當(dāng)于C中的 a=22 a是一個(gè)變量這條命令分為三個(gè)域：1： set 2： a 3： 22 set使用于設(shè)置變量的值的命令，a、20 作為參數(shù)來傳給它，a使它要操作的變量名，22是要付給的a值。 Tcl的命令名可以使內(nèi)建的命令也可以是用戶建的新命令，在應(yīng)用程序中用函數(shù)Tcl_CreateCommand來創(chuàng)建。所有的參數(shù)作為字符串來傳遞，命令自己會(huì)按其所需來解釋的參數(shù)的。命令的名字必須被打全，但 Tcl解釋器找不到一同名的命令時(shí)會(huì)用 unknown命令 來代替。 在很多場(chǎng)合下，unknown 會(huì)在庫目錄中搜尋，找到一個(gè)的話，會(huì)自動(dòng)生成一個(gè)Tcl命令并調(diào)用它。unknown經(jīng)常完成縮略的命令名的執(zhí)行。但最好不要使用。 Comments 注釋 和shell很象，第一個(gè)字母是'#'的Tcl字符串是注釋。 Grouping arguments with double-quotes 用雙引號(hào)來集群參數(shù)用雙引號(hào)來集群參數(shù)的目的在于使用有空白的參數(shù)。 例如： set a "this string contains whitespace" 如夠一個(gè)參數(shù)一雙引號(hào)來開始，該參數(shù)會(huì)一直到下一個(gè)雙引號(hào)才結(jié)束。其中可以有換行符和分號(hào)。 子替換是在正式運(yùn)行該調(diào)命令之前由分析器作的 Variable substitution with $ 用美元符進(jìn)行變量替換說白了就是引用該變量。 如： set a hello set b $a // b = "hello" 實(shí)際上傳給set命令的參數(shù) //是b,"hello" set c a // b = "a" Command substitution with brackets 命令子替換（用方括號(hào)） 例如: set a [set b "hello"] 實(shí)現(xiàn)執(zhí)行 set b "hello" 并用其結(jié)果來替換源命令 中的方括號(hào)部分，產(chǎn)生一條新命令 set a "hello" //"hello" 為 set b "hello" 的返 //回值 最終的結(jié)果是b="hello" a="hello" 當(dāng)命令的一個(gè)子域以方括號(hào)開始以方括號(hào)結(jié)束，表示要進(jìn)行一個(gè)命令子替換。并執(zhí)行該子命令，用其結(jié)果來替換原命令中的方括號(hào)部分。方括號(hào)中的部分都被視為Tcl命令。 一個(gè)復(fù)雜一點(diǎn)的例子： set a xyz[set b "abc"].[set c "def"] //return xyzabcdef Backslash substitution 轉(zhuǎn)移符替換 轉(zhuǎn)移符時(shí)間不可打印字符或由它數(shù)意義的字符插入進(jìn)來。這一概念與C語言中的一樣。 \b Backspace (0x8). \f Form feed (0xc). \n Newline (0xa). \r Carriage-return (0xd). \t 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 用花擴(kuò)括號(hào)來集群參數(shù) 用花擴(kuò)括號(hào)來集群參數(shù)與用雙引號(hào)來集群參數(shù)的區(qū)別在于：用花擴(kuò)括號(hào)來集群參數(shù)其中的三種上述的子替換不被執(zhí)行。而且可以嵌套。 例如： set a {xyz a {b c d}}//set收到倆個(gè)參數(shù) a 'xyz a {b //c d}' eval { set a 22 set b 33 }//eval收到一個(gè)參數(shù) 'set a 22\nset b 33' Command summary 命令綜述 1.一個(gè)命令就是一個(gè)字符串（string）。 2.命令是用換行符或分號(hào)來分隔的。 3.一個(gè)命令由許多的域組成。第一個(gè)于是命令名，其它的域作為參數(shù)來傳遞。 4.域通常是有空白（Tab橫向制表健 Space空格）來分開的。 5.雙引號(hào)可以使一個(gè)參數(shù)包括換行符或分號(hào)。三種子替換仍然發(fā)生。 6.花括號(hào)類似于雙引號(hào)，只是不進(jìn)行三總體換。 7.系統(tǒng)只進(jìn)行一層子替換，機(jī)制替換的結(jié)果不會(huì)再去做子替換。而且子替換可以在任何一個(gè)域進(jìn)行。 8.如果第一個(gè)非控字符是`#', 這一行的所有東西都是注釋。 Expressions 表達(dá)式 對(duì)字符串的一種解釋是表達(dá)式。幾個(gè)命令將其參數(shù)按表達(dá)式處理，如：expr、for 和 if,并調(diào)用Tcl表達(dá)式處理器(Tcl_ExprLong,Tcl_ExprBoolean等)來處理它們。其中的運(yùn)算符與C語言的很相似。 ! 邏輯非 * / % + - << >> 左移 右移 只能用于整數(shù)。 < > <= >= == != 邏輯比較 & ^ | 位運(yùn)算 和 異或 或 && || 邏輯'和' '或' x ? y : z If-then-else 與C的一樣 Tcl 中的邏輯真為1，邏輯假為0。 一些例子： 5 / 4.0 5 / ( [string length "abcd"] + 0.0 ) ---------------------- --- 計(jì)算字符串的長(zhǎng)度 轉(zhuǎn)化為浮點(diǎn)數(shù)來計(jì)算 "0x03" > "2" "0y" < "0x12" 都返回 1 set a 1 expr $a+2 expr 1+2 都返回 3 Lists 列表 字符串的另一種解釋為列表。一個(gè)列表是類似于結(jié)果的一個(gè)字符串包含了用空白分開的很多域。例如 "Al Sue Anne John" 是一個(gè)有四個(gè)元素的例表，在列表中換行父被視為分隔符。 例如： b c {d e {f g h}} 是一個(gè)有三個(gè)元素的列表 b 、c 和 {d e {f g h}}。 Tcl的命令 concat, foreach, lappend, lindex, linsert,list , llength, lrange,lreplace, lsearch, 和 lsort 可以使你對(duì)列表操作。 Regular expressions 正則表達(dá)式 Tcl 提供了兩個(gè)用于正則表達(dá)式的命令 regexp 和 regsub。 這里的正則表導(dǎo)師實(shí)際上是擴(kuò)展的正則表達(dá)式，與 egrep 相一致。 支持 ^ $ . + ? \> \< () | [] Command results 命令結(jié)果 每一條命令有倆個(gè)結(jié)果：一個(gè)退出值和一個(gè)字符串。退出值標(biāo)志著命令是否正確執(zhí)行，字符串給出附加信息。 有效的返回制定議在`tcl.h'， 如下： TCL_OK 命令正確執(zhí)行，字符串給出了命令的返回值。 TCL_ERROR 表示有一個(gè)錯(cuò)誤發(fā)生，字符串給出了錯(cuò)誤的描述。全局變量 errorInfo 包含了人類可讀的錯(cuò)誤描述，全局變量errorCode 機(jī)器使用的錯(cuò)誤信息。 TCL_RETURN 表示 return 命令被調(diào)用，當(dāng)前的命令（通常是一個(gè)函數(shù)）必須立刻返回，字符串包含了返回值。 TCL_BREAK 表示break已經(jīng)被調(diào)用，最近的巡環(huán)必須立刻返回并跳出。字符串應(yīng)該是空的。 TCL_CONTINUE 表示continue已經(jīng)被調(diào)用，最近的巡環(huán)必須立刻返回不跳出。字符串應(yīng)該是空的。 Tcl編程者一般需要關(guān)心退出值。當(dāng)Tcl解釋器發(fā)現(xiàn)錯(cuò)誤發(fā)生后會(huì)立刻停止執(zhí)行。 Procedures 函數(shù) Tcl 允許你通過proc命令來擴(kuò)充命令（定義新的命令），定義之后可以向其它的內(nèi)建命令一樣使用。 例如： proc pf {str} { puts $str } pf "hello world" 這里有一個(gè)初學(xué)者不注意的地方，上述的定義一定要寫成那樣子。而不能向下面那樣寫： proc pf {str} { puts $str } 因?yàn)閜roc實(shí)際上也只不過是一條命令，是一換行符或分號(hào)來結(jié)束的，用集群參數(shù)來傳遞函數(shù)體。proc的定義如下： proc name args tclcommand Variables: scalars and arrays 變量：標(biāo)量和向量（即數(shù)組） 向量就是數(shù)組，而標(biāo)量是沒有下表的變量。 我們用C來類比： int i； // i 是標(biāo)量 int j[10]； // j 是向量 變量不需要定義，使用的時(shí)候會(huì)自動(dòng)的被創(chuàng)建。Tcl支持兩種 變量：標(biāo)量和向量 舉個(gè)例子來說明吧， set i 100 set j(0) 10 set k(1,3) 20 i是標(biāo)量，j是向量。 引用的時(shí)候： $i $j(0) $k(1,3) Tcl簡(jiǎn)介（二）：Tcl 內(nèi)建命令 Tcl 內(nèi)建命令 Built-in commands 內(nèi)建的命令 Tcl提供了下面描述的內(nèi)建函數(shù)。 ... 表示參數(shù)不定 append varName value append varName value value value ... 將那一大堆value附加到varName后面。如果變量不存在，會(huì)新 建一個(gè)。 例子： set i "aaa" append i "bbb" "ccc" //i = aaabbbccc array subcommand arrayName array subcommand arrayName arg ... 這是一組用于向量操作的命令。第二個(gè)參數(shù)是子命令名。 假設(shè)： set a(1) 1111 set a(2) 2222 set a(three) 3333 一下均以它為例子(tclsh在中運(yùn)行）。 array names arrayName 返回一個(gè)數(shù)組元素名字的列表。 tclsh>array names a 1 2 three array size arrayName 返回?cái)?shù)組的元素個(gè)數(shù)。 tclsh>array size a 3 下面是用于遍歷的命令 arrry startsearch arrayName 初始化一次遍歷，返回一個(gè)遍歷標(biāo)示(searchId)在下面的命令 是中使用。 array nextelement arrayName searchId 返回下一個(gè)數(shù)組中的元素。如果沒有返回一個(gè)空串。 array anymore arrayName searchId 返回 1 表示還有更多的元素。0 表示沒有了。 array donesearch arrayName searchId 結(jié)束該次遍歷。 array nextelement arrayName searchId 返回下一個(gè)元素。 tclsh>array startsearch a s-1-a tclsh>array nextelement a s-1-a 1111 tclsh>array nextelement a s-1-a 2222 tclsh>array anymore a s-1-a 1 tclsh?array nextelement a s-1-a 3333 tclsh>array donesearch a s-1-a 注意可以同時(shí)并發(fā)多個(gè)遍歷。 break 跳出最近的循環(huán)。 case string in patList body ... case string patList body ... case string in {patList body ...} case string {patList body ...} 分支跳轉(zhuǎn)。 例如： case abc in {a b} {puts 1} default {puts 2} a* {puts 3} return 3. case a in { {a b} {format 1} default {format 2} a* {format 3} } returns 1. case xyz { {a b} {format 1} default {format 2} a* {format 3} } returns 2. 注意default不可以放在第一位。支持shell文件名風(fēng)格的匹配 符。 catch command catch command varName 用于阻止由于錯(cuò)誤而導(dǎo)致中斷執(zhí)行。執(zhí)行command, 每次都返 回TCL_OK, 無論是否有錯(cuò)誤發(fā)生。如有錯(cuò)誤發(fā)生返回1 ，反之返回0 。如果給了varName這被置為錯(cuò)誤信息。注意varName是已經(jīng)存在的 變量。 cd cd dirName 轉(zhuǎn)換當(dāng)前工作目錄。如dirName未給出則轉(zhuǎn)入home目錄。 close fileId 關(guān)閉文件描述符。 concat arg ... 將參數(shù)連接產(chǎn)生一個(gè)表。 concat a b {c d e} {f {g h}} return `a b c d e f {g h}' continue 結(jié)束該次循環(huán)并繼續(xù)循環(huán)。 eof fileId 如fileId以結(jié)束 返回1，反之返回 0。 error message error message info error message info code 返回一個(gè)錯(cuò)誤，引起解釋器停止運(yùn)行。info用于初始化全局變 量errorInfo。code被付給errorCode。 eval arg ... 將所有的參數(shù)連起來作為命令語句來執(zhí)行。 exec arg ... 仿佛是在shell下執(zhí)行一條命令。 exec ls --color exec cat /etc/passwd > /tmp/a exit exit returnCode 中斷執(zhí)行。 expr arg 處理表達(dá)式。 set a [expr 1+1] //a=2 file subcommand name 一組用于文件處理的命令。 file subcommand name arg ... file atime name 返回文件的最近存取時(shí)間。 file dirname name 返回name所描述的文件名的目錄部分。 file executable name 返回文件是否可被執(zhí)行。 file exists name 返回1 表示文件存在，0 表示文件不存在。 file extension name 返回文件的擴(kuò)展名。 file isdirectory name 判斷是否為目錄。 file isfile name 判斷是否為文件。 file lstat name varName 以數(shù)組形式返回。執(zhí)行l(wèi)stat系統(tǒng)函數(shù)。存儲(chǔ)在varName。 file mtime name 文件的最近修改時(shí)間。 file owned name 判斷文件是否屬于你。 file readable name 判斷文件是否可讀。 file readlink name 都出符號(hào)連接的真正的文件名。 file rootname name 返回不包括最后一個(gè)點(diǎn)的字符串。 file size name 返回文件的大小。 file stat name varName 調(diào)用stat內(nèi)和調(diào)用，以數(shù)組形式存在varName中。 file tail name 返回最后一個(gè)斜線以后的部分。 file type name 返回文件類型file, directory, characterSpecial, blockSpecial, fifo, link, 或 socket。 file writable name 判斷文件是否可寫。 flush fileId 立即處理由fileId描述的文件緩沖區(qū)。 for start test next body for循環(huán)。同C總的一樣。 for {set i 1} {$i < 10} {incr i} {puts $i} foreach varname list body 類似于C Shell總的foreach或bash中的for..in... format formatString format formatString arg ... 格式化輸出，類似于C中的sprintf。 set a [format "%s %d" hello 100] //a="hello 100" gets fileId gets fileId varName 從文件中讀出一行。 set f [open /etc/passwd r] gets $f glob filename ... glob -nocomplain filename ... 使用C Shell風(fēng)格的文件名通配規(guī)則，對(duì)filename進(jìn)行擴(kuò)展。 ls /tmp a b c tclsh>glob /tmp/* a b c 當(dāng)加上參數(shù) -nocomplain 時(shí)，如文件列表為空則發(fā)生一個(gè)錯(cuò) 誤。 global varname ... 定義全局變量。 if test trueBody if test trueBody falseBody if test then trueBody if test then trueBody else falseBody 條件判斷，是在沒什么說的。 incr varName incr varName increment 如果沒有incremnet，將varName加一，反之將varName加 上increment。 set i 10 incr i //i=11 incr i 10 //i=21 info subcommand info subcommand arg ... 取得當(dāng)前的Tcl解釋器的狀態(tài)信息。 info args procname 返回由procname指定的命令(你自己創(chuàng)建的）的參數(shù)列表。 如： proc ff { a b c } {puts haha} info args ff //return "a b c" info body procname 返回由procname指定的命令(你自己創(chuàng)建的）的函數(shù)體。 如： proc ff { a b c } {puts haha} info body ff //return "puts haha" info cmdcount 返回當(dāng)前的解釋器已經(jīng)執(zhí)行的命令的個(gè)數(shù)。 info commands info commands pattern 如果不給出模式，返回所有的命令的列表，內(nèi)建和自建的。 模式是用C Shell匹配風(fēng)格寫成的。 info complete command 檢查名是否完全，有無錯(cuò)誤。 info default procname arg varname procname的參數(shù)arg，是否有缺省值。 info exists varName 判斷是否存在該變量。 info globals info globals pattern 返回全局變量的列表，模式同樣是用C Shell風(fēng)格寫成的。 info hostname 返回主機(jī)名。 info level info level number 如果不給參數(shù)number則返回當(dāng)前的在棧中的絕對(duì)位置，參 見uplevel中的描述。如加了參數(shù)number，則返回一個(gè)列表包 含了在該level上的命令名和參數(shù)。 info library 返回標(biāo)準(zhǔn)的Tcl腳本的可的路徑。實(shí)際上是存在變量 tcl_library中。 info locals info locals pattern 返回locale列表。 info procs info procs pattern 返回所有的過程的列表。 info script 返回最里面的腳本（用 source 來執(zhí)行）的文件名。 info tclversion 返回Tcl的版本號(hào)。 info vars info vars pattern 返回當(dāng)前可見的變量名的列表。 下面是一些用于列表的命令，范圍可以是end。 join list join list joinString 將列表的內(nèi)容連成一個(gè)字符串。 lappend varName value ... 將value加入列表varName中。 lindex list index 將list視為一個(gè)列表，返回其中第index個(gè)。列表中的第一個(gè) 元素下標(biāo)是0。 lindex "000 111 222" 1 111 linsert list index element ... 在列表中的index前插入element。 list arg ... 將所有的參數(shù)發(fā)在一起產(chǎn)生一個(gè)列表。 list friday [exec ls] [exec cat /etc/passwd] llength list 返回列表中元素的個(gè)數(shù)。 set l [list sdfj sdfjhsdf sdkfj] llength $l //return 3 lrange list first last 返回列表中從frist到last之間的所有元素。 set l [list 000 111 222 333 444 555] lrange $l 3 end //return 333 444 555 lreplace list first last lreplace list first last element ... 替換列表中的從first到last的元素，用element。 set l [list 000 111 222 333 444 555] lreplace $l 1 2 dklfj sdfsdf dsfjh jdsf 000 dklfj sdfsdf dsfjh jdsf 333 444 555 lsearch -mode list pattern 在列表中搜索pattern，成功返回序號(hào)，找不到返回-1。 -mode : -exact 精確 -glob shell的通配符 -regexp 正則表達(dá)式 lsearch "111 222 333 444" 111 //return 0 lsearch "111 222 333 444" uwe //return 1 lsort -mode list 排列列表。 -mode : -ascii -dictionary 與acsii類似，只是不區(qū)分大小寫 -integer 轉(zhuǎn)化為整數(shù)再比較 -real 轉(zhuǎn)化為浮點(diǎn)數(shù)再比較 -command command 執(zhí)行command來做比較 open fileName open fileName access 打開文件，返回一個(gè)文件描述符。 access r w a r+ w+ a+ 定義與C中相同。如文件名的第一個(gè)字符為|表示一管道的形式 來打開。 set f [open |more w] set f [open /etc/pass r] proc name args body 創(chuàng)建一個(gè)新的過程，可以替代任何存在的過程或命令。 proc wf {file str} { puts -nonewline $file str flush $file } set f [open /tmp/a w] wf $f "first line\n" wf $f "second line\n" 在函數(shù)末尾可用 return 來返回值。 puts -nonewline fileId string 向fileId中寫入string，如果不加上 -nonewline 則自動(dòng)產(chǎn) 生一個(gè)換行符。 pwd 返回當(dāng)前目錄。 read fileId read fileId numBytes 從fileId中讀取numBytes個(gè)字節(jié)。 regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...? 執(zhí)行正則表達(dá)式的匹配。 switches? -nocase 不區(qū)分大小寫 -indices 返回匹配區(qū)間 如： regexp ^abc abcjsdfh //return 1 regexp ^abc abcjsdfh a //return 1 puts $a //return abc regexp -indices ^abc abcsdfjkhsdf a //return 1 puts $a //return "0 2" regsub ?switchs? exp string subSpec varName 執(zhí)行正則表達(dá)式的替換,用subSpec的內(nèi)容替換string中匹配exp 的部分。 switchs? -all 將所有匹配的部分替換，缺省子替換第一 個(gè)，返回值為替換的個(gè)數(shù)。 -nocase 不區(qū)分大小寫。 如： regsub abc abcabcbac eee b //return 1 puts $b //return "eeeabcabc" regsub -all abc abcabcabc eee b //return 3 puts $b //return "eeeeeeeee" return 立即從當(dāng)前命令中返回。 proc ff {} { return friday } set a [ff] //a = "friday" scan string `format' varname ... 從string中安format來讀取值到varname。 seek fileId offset ?origin? 移動(dòng)文件指針。 origin: start current end offset從哪里開始算起。 set varname ?value? 設(shè)置varname用value，或返回varname的值。如果不是在一 個(gè)proc命令中則生成一個(gè)全局變量。 source fileName 從filename中讀出內(nèi)容傳給Tcl解釋起來執(zhí)行。 split string ?splitChars? 將string分裂成列表。缺省以空白為分隔符，也可通 過splitChars來設(shè)定分隔符 string subcommand arg ... 用于字符串的命令。 string compare string1 string2 執(zhí)行字符串的比較，按 C strcmp 的方式。返回 -1, 0, or 1。 string first string1 string2 在string1種查找string2的定義次出現(xiàn)的位置。未找到返回-1。 string length string 返回字符串string的長(zhǎng)度。 string match pattern string 判斷string是否能匹配pattern。pattern是以shell文件名的 統(tǒng)配格式來給出。 string range string first last 返回字符串string中從first到last之間的內(nèi)容。 string tolower string 將string轉(zhuǎn)換為小寫。 string toupper string 將string轉(zhuǎn)換為大寫。 string trim string 將string的左右空白去掉。 string trimleft string 將string的左空白去掉。 string trimright string 將string的右空白去掉。 tell fileId 返回fileId的文件指針位置。 time command 執(zhí)行命令，并計(jì)算所消耗的時(shí)間。 time "ls --color" some file name 503 microseconds per iteration trace subcommand trace subcommand arg ... 監(jiān)視變量的存儲(chǔ)。子命令定義了不少，但目前只實(shí)現(xiàn)了 virable。 trace variable name ops command name 為變量的名字。 ops 為要監(jiān)視的操作。 r 讀 w 寫 u unset command 條件滿足時(shí)執(zhí)行的命令。 以三個(gè)參數(shù)來執(zhí)行 name1 name2 ops name1時(shí)變量的名字。當(dāng)name1為矢量時(shí)，name2為下標(biāo)，ops 為執(zhí)行的操作。 例如： proc ff {name1 name2 op} { puts [format "%s %s %s" name1 name2 op] } set a hhh trace variable a r {ff} puts $a //return "a r\nhhh" unknown cmdName unknown 并不是 Tcl 的一部分，當(dāng) Tcl 發(fā)現(xiàn)一條不認(rèn)識(shí)的命 令時(shí)會(huì)看看是否存在 unknown命令，如果有，則調(diào)用它，沒有則出 錯(cuò)。 如： #!/usr/bin/tclsh proc unknown {cwd args} { puts $cwd puts $args } //下面是一條錯(cuò)誤命令 sdfdf sdf sdkhf sdjkfhkasdf jksdhfk //return "sdfdf sdf sdkhf sdjkfhkasdf jksdhfk" unset name ... 刪除一個(gè)或多個(gè)變量（標(biāo)量或矢量）。 uplevel command ... 將起參數(shù)連接起來（象是在concat中）。最后在由level所指 定的上下文中來執(zhí)行。如果level是一個(gè)整數(shù)，給出了在棧中的距 離（是跳到其它的命令環(huán)境中來執(zhí)行）。 缺省為1（即上一層）。 如： #!/usr/bin/tcl proc ff {} { set a "ff" //設(shè)置了局部的a ------------------------- } set a "global" ff puts $a //return "global" 再看下一個(gè)： #!/usr/bin/tcl proc ff {} { uplevel set a "ff" //改變上一級(jí)棧中的a ------------------------------------- } set a global ff puts $a //return "ff" 如果level是以#開頭后接一個(gè)整數(shù)，則level指出了在棧中的 絕對(duì)位置。如#0表示了頂層（top-level）。 a b c 分別為三個(gè)命令，下面是它們之間的調(diào)用關(guān)系， top-level -> a -> b -> c -> uplevel level 絕對(duì)位置： 0 1 2 3 當(dāng)level為 1 或 #2 都是在 b 的環(huán)境中來執(zhí)行。 3 或 #0 都是在 top-level 的環(huán)境中來執(zhí)行。 upvar ?level? otherVar myVar ?otherVar myVar ...? 在不同的棧中為變量建立連接。這里的level與uplevel中 的level是同樣風(fēng)格的。 例如： #!/usr/bin/tcl proc ff {name } { upvar $name x set x "ff" } set a "global" ff a puts $a //return "ff" while test body 舉個(gè)例子吧： set x 0 while {$x<10} { puts "x is $x" incr x } Built-in variables 內(nèi)建的變量 下名的全局變量是由 Tcl library 自動(dòng)來管理的。一般是只 讀的。 env 環(huán)境變量數(shù)組。 如： puts $env(PATH) // return /bin:/usr/bin:/usr/X11R6/bin errorCode 當(dāng)錯(cuò)誤發(fā)生時(shí)保存了一些錯(cuò)誤信息。用下列格式來存儲(chǔ)： CHILDKILLED pid sigName msg 當(dāng)由于一個(gè)信號(hào)而被終止時(shí)的信息。 CHILDSTATUS pid code 當(dāng)一個(gè)子程序以非0值退出時(shí)的格式。 CHILDSUSP pid sigName msg 當(dāng)一個(gè)子程序由于一個(gè)信號(hào)而被終止時(shí)的格式。 NONE 錯(cuò)誤沒有附加信息。 UNIX errName msg 當(dāng)一個(gè)內(nèi)核調(diào)用發(fā)生錯(cuò)誤時(shí)使用的格式。 errorInfo 包含了一行或多行的信息，描述了錯(cuò)誤發(fā)生處的程序和信息。 原文的作者也是Tcl的締造者 John Ousterhout Tcl簡(jiǎn)介（三）：Tcl 內(nèi)建命令 Tcl 名字空間 namespace 創(chuàng)建和操縱命令和變量的上下文(content)。 簡(jiǎn)介： 一個(gè)名字空間是一個(gè)命令和變量的集合，通過名字空間的封裝來 保證他們不會(huì)影響其它名字空間的變量和命令。 Tcl 總是維護(hù)了一 個(gè)全局名字空間 global namespace 包含了所有的全局變量和命令。 namespace eval允許你創(chuàng)建一個(gè)新的namespace。 例如： namespace eval Counter { namespace export Bump variable num 0 proc Bump {} { variable num//聲明局部變量 incr num } } 名字空間是動(dòng)態(tài)的，可變的。 例如： namespace eval Counter { variable num 0//初始化 proc Bump {} { variable num return [incr num] } } //添加了一個(gè)過程 namespace eval Counter { proc test {args} { return $args } } //刪除test
namespace eval Counter { rename test "" } 引用： set Counter::num //return 0 也可以用下面的方式添加： proc Foo::Test {args} {return $args} 或在名字空間中移動(dòng)： rename Foo::Test Bar::Test |
|
|
