【文章內(nèi)容簡介】 !feof( fpIn ) ) { . . . fgets( CurLine, MAXSIZE, fpIn )。 } 控制結(jié)構(gòu) 循環(huán)（續(xù)） ? foreach 循環(huán) foreach 是 tcl里常用的循環(huán)方法，因為它和 list這個功能強大的數(shù)據(jù)結(jié)構(gòu)有關(guān)系： foreach Item ItemList { body。 } set NameList “John Mark Jack ” foreach Name NameList { puts ”He is $Name } foreach的 擴展： foreach {Name Position} {John Engineer Mark Manager} { puts “$Name is $Position” } foreach Name “John Mark” Position “Engineer Manager” { puts “$Name is $Position” } 控制結(jié)構(gòu) 循環(huán)（續(xù)） ? 數(shù)據(jù)集循環(huán) 我們經(jīng)常需要從數(shù)據(jù)庫里讀取一批數(shù)據(jù)進行處理，這里也是一個循環(huán)的過程。目前， tcl支持對 oracle和 sybase的操作。 set sqlline “select field1, field2 from table1 where …” orasql $DBHandle $sqlline orafetch $DBHandle “CalledProc @1 @2” 每返回一個記錄，以對應(yīng)的字段域做參數(shù)調(diào)用過程 CalledProc 或者： orafetch $DBHandle { puts @1 puts @2 . . . } 直接把執(zhí)行體寫在后面。每返回一個記錄，執(zhí)行其后的操作?？梢杂衎reak和 continue。 注意： @符號及參數(shù) @?的用法 在執(zhí)行體內(nèi)好象不能寫注釋，會有語法錯誤（？） 程序結(jié)構(gòu) ? 一般形式 !/aitools/bin/ source OtherProgramFile global Varibles1, ... VariblesN load LibraryFile proc ProcName {arg1 arg2 … argn} { global Var1 Var2 …Var . . . return RetString } if { $argc == 0 } { puts “\[Usage\]: $argv0 FileIn FileOut ” return 1 } set SomeVar [ PorcName Arg1 Arg2 . . .Arg ] return 0 程序結(jié)構(gòu)（續(xù)） ? source 可以把一個外部的 tcl文件在此處展開（執(zhí)行），我們大家熟知的一個文件就是 etc/， 它里面其實就是一段 tcl程序，設(shè)置了一個名為 AIIP的數(shù)組 ? global 指定某些變量是全局可用的。在 tcl里，主程序里的變量并不是全局可用的，必須在主程序或過程里用 global說明后，才能在過程里引用。 aiobs 程序里經(jīng)常在 source 后緊接著就是 global AIIP ? load 加載外部函數(shù)庫。比如 oratcl（ tcl的 oracle支持庫）。 aiobs 很多 用 C開發(fā)的代碼都可以被 tcl加載，只要符合一定的規(guī)則。這也是 tcl和 C親緣關(guān)系的一個證明。 ? proc 說明一個子過程，后面接過程名、參數(shù)列表、執(zhí)行體。需要注意的是，過程的參數(shù)列表應(yīng)該和調(diào)用處的參數(shù)一致。 但例外的是，如果過程的參數(shù)只寫一個，它就可以以 list的形式接收多個入口參數(shù)。 程序結(jié)構(gòu)（續(xù)） ? proc （ 續(xù)） proc F1 { arg1 agr2 arg3 } { . . . } proc F2 args { set arg1 [lindex $args] . . . } set SomeVar [ F1 Arg1 Arg2 Arg3 ] set SomeVar [ F2 Arg1 Arg2 Arg3 ] proc 只能返回字符串，這是一個不太靈活的地方。如果只返回單個值還好說，反正 tcl里只有一種數(shù)據(jù)類型， return 回來就是了。在 aiobs里，一個過程經(jīng)常要一次返回多個數(shù)據(jù)，就象 C里返回一個結(jié)構(gòu)一樣，如何實現(xiàn)？用 list的方法，在調(diào)用返回的字符串里用 lindex解出各個單元。 proc F1 { arg1 arg2 arg3 } { . . . set RetString Val1 lappend RetString Val2 程序結(jié)構(gòu)（續(xù)） ? proc （ 續(xù)） return RetString } set SomeVal [F1 1 2 3 ] set RetV1 [lindex $SomeVal 0] set RetV2 [lindex $SomeVal 1] . . . 注意， proc的調(diào)用是傳值調(diào)用，在主程序調(diào)用是要給具體的數(shù)據(jù)或變量的值。 proc 支持遞歸調(diào)用，不知有多深，反正做個 100！沒問題。 ? 主程序 只是為了整齊，前面的幾個部分如 source、 load 、 proc等都寫在文件的前部，實際上可以靈活些，只要在運行的邏輯順序上不要發(fā)生“未定義的...”就可以。 主程序入口時會帶來幾個變量，常用的有 數(shù)組 env 系統(tǒng) 的環(huán)境變量 本程序名 argv0 程序結(jié)構(gòu)（續(xù)） ? 主程序（續(xù)） 入口參數(shù)個數(shù) argc （ 不包括本程序名，與 C不同） 入口參數(shù)列 argv （ 不包括本程序名） 如果調(diào)用程序： aiobs Mark John 那么在程序里： puts $arg0 。 puts $argc 。 argc = 2 puts $argv 。 “Mark John” puts [lindex $argv 0] 。 Mark puts [lindex $argv 1] 。 John 語法要點 ? append 和 lappend append 向一個變量里追加字符串 append a $b 和 set a $a$b 效果一樣，但 append 效率更好一些（省內(nèi)存？） lappend 向一個列里追加元素 set a “1 2 3” lappend a 4 ? array 數(shù)組操作 太多的操作類型了，看看 help吧。 ? catch 捕獲 tcl操作的錯誤 if { [catch {open $someFile w} fid] } {