【正文】 除掉spaces、tabs、newlines、carriage returns這些字符。例如:% string trim abcde {a d e}bc% string trim def def string trimleft string ?chars? 。不過只刪除左邊的字符。 string trimright string ?chars? 。不過只刪除右邊的字符。2 文件訪問TCL提供了豐富的文件操作的命令。通過這些命令你可以對文件名進行操作(查找匹配某一模式的文件)、以順序或隨機方式讀寫文件、檢索系統(tǒng)保留的文件信息（如最后訪問時間)。 文件名TCL中文件名和我們熟悉的windows表示文件的方法有一些區(qū)別：在表示文件的目錄結構時它使用39。/39。，而不是39。\39。，這和TCL最初是在UNIX下實現(xiàn)有關。：C:/tcl/。 基本文件輸入輸出命令這個名為tgrep的過程，可以說明TCL文件I/O的基本特點：proc tgrep { pattern filename} {set f [open $filename r]while { [gets $f line ] } { if {[regexp $pattern $line]} { puts stdout $line } }close $f} 以上過程非常象UNIX的grep命令， 你可以用兩個參數(shù)調(diào)用它，一個是模式，另一個是文件名，tgrep將打印出文件中所有匹配該模式的行。下面介紹上述過程中用到的幾個基本的文件輸入輸出命令。open name ?access? open命令 以access方式打開文件name。返回供其他命令(gets,close等)使用的文件標識。如果name的第一個字符是“|”，管道命令被觸發(fā)，而不是打開文件。文件的打開方式和我們熟悉的C語言類似，有以下方式：r 只讀方式打開。文件必須已經(jīng)存在。這是默認方式。r+ 讀寫方式打開，文件必須已經(jīng)存在。 w 只寫方式打開文件，如果文件存在則清空文件內(nèi)容，否則創(chuàng)建一新的空文件。w+ 讀寫方式打開文件，如文件存在則清空文件內(nèi)容，否則創(chuàng)建新的空文件。a 只寫方式打開文件，文件必須存在，并把指針指向文件尾。a+ 讀寫方式打開文件，并把指針指向文件尾。如文件不存在，創(chuàng)建新的空文件。open命令返回一個字符串用于表識打開的文件。當調(diào)用別的命令（如：gets,puts,close，〕對打開的文件進行操作時，就可以使用這個文件標識符。TCL有三個特定的文件標識： stdin,stdout和stderr ，分別對應標準輸入、標準輸出和錯誤通道，任何時候你都可以使用這三個文件標識。gets fileId ?varName? 讀fileId標識的文件的下一行，忽略換行符。如果命令中有varName就把該行賦給它，并返回該行的字符數(shù)（文件尾返回1），如果沒有varName參數(shù)，返回文件的下一行作為命令結果（如果到了文件尾，就返回空字符串）。和gets類似的命令是read，不過read不是以行為單位的，它有兩種形式：read ?nonewline? fileId 讀并返回fileId標識的文件中所有剩下的字節(jié)。如果沒有nonewline開關，則在換行符處停止。read fileId numBytes 在fileId標識的文件中讀并返回下一個numbytes字節(jié)。puts ?nonewline? ?fileId? string puts命令把string寫到fileId中，如果沒有nonewline開關的話，添加換行符。fileId默認是stdout。命令返回值為一空字符串。puts命令使用C的標準I/O庫的緩沖區(qū)方案，這就意味著使用puts產(chǎn)生的信息不會立即出現(xiàn)在目標文件中。如果你想使數(shù)據(jù)立即出現(xiàn)在文件中，那你就調(diào)用flush命令：flush fileId 把緩沖區(qū)內(nèi)容寫到fileId標識的文件中，命令返回值為空字符串。flush命令迫使緩沖區(qū)數(shù)據(jù)寫到文件中。flush直到數(shù)據(jù)被寫完才返回。當文件關閉時緩沖區(qū)數(shù)據(jù)會自動flush。close ?fileId? 關閉標識為fileId的文件，命令返回值為一空字符串。這里特別說明的一點是，TCL中對串口、管道、socket等的操作和對文件的操作類似，以上對文件的操作命令同樣適用于它們。 隨機文件訪問默認文件輸入輸出方式是連續(xù)的：即每個gets或爎ead命令返回的是上次gets或爎ead訪問位置后面的字節(jié)，每個puts命令寫數(shù)據(jù)是接著上次puts寫的位置接著寫。TCL提供了seek,tell和eof等命令使用戶可以非連續(xù)訪問文件。每個打開的打開文件都有訪問點，即下次讀寫開始的位置。文件打開時，訪問點總是被設置為文件的開頭或結尾，這取決于打開文件時使用的訪問模式。每次讀寫后訪問位置按訪問的字節(jié)數(shù)后移相應的位數(shù)?？梢允褂胹eek命令來改變文件的訪問點：seek fileId offset ?origin? 把fileId標識的文件的訪問點設置為相對于origin偏移量為offset的位置。origin可以是start，current，end，默認是start。命令的返回值是一空字符串。例如：seek fileId 2000 改變fieleId標識的文件訪問點，以便下次讀寫開始于文件的第2000個字節(jié)。seek的第三個參數(shù)說明偏移量從哪開始計算。第三個參數(shù)必為start,current或end中的一個。start是默認值：即偏移量是相對文件開始處計算。current是偏移量從當前訪問位置計算。end是偏移量從文件尾開始計算。tell fileId 返回fileId標識的文件的當前訪問位置。eof fileId 如果到達fileId標識的文件的末尾返回1，否則返回0。 當前工作目錄TCL提供兩個命令來管理當前工作目錄：pwd和Cd。pwd和UNIX下的pwd命令完全一樣， 沒有參數(shù)，返回當前目錄的完整路徑。cd 命令也和UNIX命令也一樣，使用一個參數(shù)，可以把工作目錄改變?yōu)閰?shù)提供的目錄。如果cd 沒使用參數(shù)，UNIX下，會把工作目錄變?yōu)閱覶CL腳本的用戶的工作目錄，WINDOWS下會把工作目錄變?yōu)閣indows操作系統(tǒng)的安裝目錄所在的盤的根目錄(如：C:/)。值得注意的是，提供給cd的參數(shù)中路徑中的應該用39。/39。而不是39。\39。如 cd C:/TCL/lib。這是UNIX的風格。 文件操作和獲取文件信息TCL提供了兩個命令進行文件名操作：glob和file，用來操作文件或獲取文件信息。glob命令采用一種或多種模式作為參數(shù)，并返回匹配這個（些）模式的所有文件的列表，其語法為：glob ?switches? pattern ?pattern ...?其中switches可以取下面的值：noplain ：允許返回一個空串，沒有noplain時，如果結果是空的，就返回錯誤。 ：表示switches結束，即后面以39。39。開頭的參數(shù)將不作為switches。glob命令的模式采用string match命令()的匹配規(guī)則。例如：%glob *.c *.h 。 glob 還允許模式中包含39。 括在花括號中間以逗號分開的多種選擇39。，例如 ： %glob {{src,backup}/*.[ch]}src/ src/ src/ backup/下面的命令和上面的命令等價： glob {src/*.[ch]} {backup/*.[ch]}注意：這些例子中模式周圍的花括號是必須的，可以防止命令置換。在調(diào)用glob命令對應的C過程前這些括號會被TCL解釋器去掉。如果glob的模式以一斜線結束，那將只匹配目錄名。例如： glob */只返回當前目錄的所有子目錄。如果glob返回的文件名列表為空，通常會產(chǎn)生一個錯誤。但是glob的在樣式參數(shù)之前的第一個參數(shù)是noplain的話，這時即使結果為空，glob也不會產(chǎn)生錯誤。對文件名操作的第二個命令是file。file是有許多選項的常用命令，可以用來進行文件操作也可以檢索文件信息。這節(jié)討論與名字相關的選項，下一節(jié)描述其他選項。使用file命令時，我們會發(fā)現(xiàn)其中有很明顯的UNIX痕跡。file atime name 返回一個十進制的字符串，表示文件name最后被訪問的時間。時間是以秒為單位從1970年1月1日12：00AM開始計算。如果文件name 不存在或查詢不到訪問時間就返回錯誤。例：% file atime 975945600file copy ?force? ?? source targetfile copy ?force? ?? source ?source ...? targetDir 這個命令把source中指明的文件或目錄遞歸的拷貝到目的地址targetDir，只有當存在force選項時，已經(jīng)存在的文件才會被覆蓋。試圖覆蓋一個非空的目錄或以一個文件覆蓋一個目錄或以一個目錄覆蓋一個文件都會導致錯誤。的含義和前面所說的一樣。file delete ?force? ?? pathname ?pathname ... ? 這個命令刪除pathname指定的文件或目錄，當指定了force時，非空的目錄也會被刪除。即使沒有指定force，只讀文件也會被刪除。刪除一個不存在的文件不會引發(fā)錯誤。file dirname name 返回name中最后一個“/”前的所有字符；如果 name 不包含“/”，返回“.”；如果name 中最后一個“/”是第name的第一個字符，返回“/”。file executable name 如果name對當前用戶是可以執(zhí)行的，就返回1，否則返回0。file exists name 如果name存在于當前用戶擁有搜索權限的目錄下返回1，否則返回0。file extension name 返回name中最后的“.”以后（包括這個小數(shù)點）的所有字符。如果name中沒有“.”或最后斜線后沒有“.”返回空字符。file isdirectory name 如果name是目錄返回1，否則返回0。file isfile name 如果name是文件返回1，否則返回0。file lstat name arrayName 除了利用lstat內(nèi)核調(diào)用代理stat內(nèi)核調(diào)用之外，和file stat命令一樣，這意味著如果name是一個符號連接，那么這個命令返回的是這個符號連接的信息而不是這個符號連接指向的文件的信息。對于不支持符號連接的操作系統(tǒng)，這個命令和和file stat命令一樣。file mkdir dir ?dir ...? 這個命令和UNIX的mkdir命令類似，創(chuàng)建dir中指明的目錄。如果dir已經(jīng)存在，這個命令不作任何事情，也不返回錯誤。不過如果試圖用一個目錄覆蓋已經(jīng)存在的一個文件會導致錯誤。這個命令順序處理各個參數(shù)，如果發(fā)生錯誤的話，馬上退出。file mtime name 返回十進制的字符串，表示文件name最后被修改的時間。時間是以秒為單位從1970年1月1日12：00AM開始計算。file owned name 如果name被當前用戶擁有，返回1，否則返回0。file readable name 如果當前用戶可對name進行讀操作，返回1，否則返回0。file readlink name 返回name代表的符號連接所指向的文件。如果name 不是符號連接或者找不到符號連接，返回錯誤。在不支持符號連接的操作系統(tǒng)(如windows)中選項readlink沒有定義。file rename ? force? ?? source target file rename ?force? ?? source ?source ...? targetDir這個命令同時具有重命名和移動文件(夾)的功能。把source指定的文件或目錄改名或移動到targetDir下。 只有當存在force選項時，已經(jīng)存在的文件才會被覆蓋。 試圖覆蓋一個非空的目錄或以一個文件覆蓋一個目錄或以一個目錄覆蓋一個文件都會導致錯誤。file rootname name 返回name中最后“.”以前（不包括這個小數(shù)點）的所有字符。如果name中沒有“.”返回Name。file size name 返回十進制字符串，以字節(jié)表示name的大小。如果文件不存在或得不到name的大小，返回錯誤。file stat name arrayName 調(diào)用stat內(nèi)核來訪問name，并設置arrayName參數(shù)來保存stat的返回信息。 arrayName被當作一個數(shù)組，它將有以下元素：atime、ctime、dev、gid、ino、mode、mtime、nlink、size、type和uid。除了type以外，其他元素都是十