cl腳本教程ppt課件(編輯修改稿)
2025-06-01 12:05 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 !feof( fpIn ) ) { . . . fgets( CurLine, MAXSIZE, fpIn )。 } 控制結(jié)構(gòu) 循環(huán)（續(xù)） ? foreach 循環(huán) foreach 是 tcl里常用的循環(huán)方法，因?yàn)樗?list這個(gè)功能強(qiáng)大的數(shù)據(jù)結(jié)構(gòu)有關(guān)系： foreach Item ItemList { body。 } set NameList “John Mark Jack ” foreach Name NameList { puts ”He is $Name } foreach的 擴(kuò)展： 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ù)庫(kù)里讀取一批數(shù)據(jù)進(jìn)行處理，這里也是一個(gè)循環(huán)的過(guò)程。目前， tcl支持對(duì) oracle和 sybase的操作。 set sqlline “select field1, field2 from table1 where …” orasql $DBHandle $sqlline orafetch $DBHandle “CalledProc @1 @2” 每返回一個(gè)記錄，以對(duì)應(yīng)的字段域做參數(shù)調(diào)用過(guò)程 CalledProc 或者： orafetch $DBHandle { puts @1 puts @2 . . . } 直接把執(zhí)行體寫在后面。每返回一個(gè)記錄，執(zhí)行其后的操作。可以有break和 continue。 注意： @符號(hào)及參數(shù) @?的用法 在執(zhí)行體內(nèi)好象不能寫注釋，會(huì)有語(yǔ)法錯(cuò)誤（？） 程序結(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 可以把一個(gè)外部的 tcl文件在此處展開(kāi)（執(zhí)行），我們大家熟知的一個(gè)文件就是 etc/， 它里面其實(shí)就是一段 tcl程序，設(shè)置了一個(gè)名為 AIIP的數(shù)組 ? global 指定某些變量是全局可用的。在 tcl里，主程序里的變量并不是全局可用的，必須在主程序或過(guò)程里用 global說(shuō)明后，才能在過(guò)程里引用。 aiobs 程序里經(jīng)常在 source 后緊接著就是 global AIIP ? load 加載外部函數(shù)庫(kù)。比如 oratcl（ tcl的 oracle支持庫(kù)）。 aiobs 很多 用 C開(kāi)發(fā)的代碼都可以被 tcl加載，只要符合一定的規(guī)則。這也是 tcl和 C親緣關(guān)系的一個(gè)證明。 ? proc 說(shuō)明一個(gè)子過(guò)程，后面接過(guò)程名、參數(shù)列表、執(zhí)行體。需要注意的是，過(guò)程的參數(shù)列表應(yīng)該和調(diào)用處的參數(shù)一致。 但例外的是，如果過(guò)程的參數(shù)只寫一個(gè)，它就可以以 list的形式接收多個(gè)入口參數(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 只能返回字符串，這是一個(gè)不太靈活的地方。如果只返回單個(gè)值還好說(shuō)，反正 tcl里只有一種數(shù)據(jù)類型， return 回來(lái)就是了。在 aiobs里，一個(gè)過(guò)程經(jīng)常要一次返回多個(gè)數(shù)據(jù)，就象 C里返回一個(gè)結(jié)構(gòu)一樣，如何實(shí)現(xiàn)？用 list的方法，在調(diào)用返回的字符串里用 lindex解出各個(gè)單元。 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)用，不知有多深，反正做個(gè) 100！沒(méi)問(wèn)題。 ? 主程序 只是為了整齊，前面的幾個(gè)部分如 source、 load 、 proc等都寫在文件的前部，實(shí)際上可以靈活些，只要在運(yùn)行的邏輯順序上不要發(fā)生“未定義的...”就可以。 主程序入口時(shí)會(huì)帶來(lái)幾個(gè)變量，常用的有 數(shù)組 env 系統(tǒng) 的環(huán)境變量 本程序名 argv0 程序結(jié)構(gòu)（續(xù)） ? 主程序（續(xù)） 入口參數(shù)個(gè)數(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 語(yǔ)法要點(diǎn) ? append 和 lappend append 向一個(gè)變量里追加字符串 append a $b 和 set a $a$b 效果一樣，但 append 效率更好一些（省內(nèi)存？） lappend 向一個(gè)列里追加元素 set a “1 2 3” lappend a 4 ? array 數(shù)組操作 太多的操作類型了，看看 help吧。 ? catch 捕獲 tcl操作的錯(cuò)誤 if { [catch {open $someFile w} fid] } {
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1