tcl入門培訓(xùn)ppt課件-wenkub
2022-11-03 05:10:32 本頁面
【正文】 指定解釋器 !/aitools/bin/tclsh 或如下寫法 !/bin/sh the next line restarts using tclsh\ exec tclsh $0 $ 注釋的標(biāo)記為 如： This is a ment sentence 句與句（包括注釋句）之間以“換行”或“ 。 強(qiáng)大的文本處理能力。腳本解釋器為 tclsh，同時它也是一個 shell環(huán)境。 Tcl和 C語言有著天然的親緣關(guān)系，即相近的數(shù)據(jù)類型與控制結(jié)構(gòu)；通過規(guī)范的 API， 能夠比較方便的用 C進(jìn)行 Tcl的擴(kuò)展開發(fā)。 擴(kuò)展能力達(dá)到 GUI、 網(wǎng)絡(luò)、 OOP等各個方面。”分隔 如： Following a sentence puts “l(fā)ine 1” puts “l(fā)ine 2” 。 You can write it as : gets stdin Name puts “Hello, $Name!” ? 運(yùn)行 aiobs56 Please input your name: Mark Hello Mark! aiobs56 ? 新的內(nèi)容 符號對“ []” gets 命令 set 命令 $ 符號 另一個老套（續(xù)） ? 新的內(nèi)容 在前一頁，有一個語句： set Name [gets stdin] 符號對“ []”的意思是：執(zhí)行里面的命令，用結(jié)果替換這個組合，類似于 C語言中的函數(shù)調(diào)用。 ? 變量賦值： set Name Mark set Line “Hello World!” set 變量名 值 與 gets類似，命令 set同時也返回值。 數(shù)據(jù)類型 ? tcl 的數(shù)據(jù)類型實際上只有一種：字符串 所以在 tcl中的變量沒有類型轉(zhuǎn)換或類型匹配問題，所有的“數(shù)據(jù)”都是以字符串的形式存在。 試試下面命令： % set Data(1) % set Data() abc % set Data(Name) Mark % set Data() “Hello,” % set Data( ) “a space” % set Data(“My Name”) “Mark !” % puts “$Data() $Data(“My Name”)” % set Data(hello,$Data(Name)) “$Data() $Data(“My Name”)” % puts $Data(hello,Mark) ? 數(shù)組還有很多相關(guān)的操作，可參見命令 array 控制結(jié)構(gòu) 條件分支 ? 終于來到 if語句了，沒有 if語句怎么能有程序 ? 建議形式： if { expr } { . . . } 或者： if { expr1 } { . . . } elseif { expr2 } { . . . } else { . . . } 表達(dá)式 的值應(yīng)該為邏輯值，表達(dá)式支持邏輯運(yùn)算（與 C相似）。 整個 if是一個句子，里面必要的分隔符不能省 控制結(jié)構(gòu) 循環(huán) ? for 循環(huán) 按照 C語言的教程， if語句后應(yīng)該是 for循環(huán)了。 表達(dá)式也可以是復(fù)合的： % for { set x 0。incr y } { puts $x $y } 在寫程序時需要注意的是整個句子里，變量有的地方帶 $，有的地方不帶$，這是經(jīng)常容易筆誤的地方。 } 控制結(jié)構(gòu) 循環(huán)（續(xù)） ? foreach 循環(huán) foreach 是 tcl里常用的循環(huán)方法，因為它和 list這個功能強(qiáng)大的數(shù)據(jù)結(jié)構(gòu)有關(guān)系： foreach Item ItemList { body。每返回一個記錄，執(zhí)行其后的操作。 aiobs 程序里經(jīng)常在 source 后緊接著就是 global AIIP ? load 加載外部函數(shù)庫。 ? proc 說明一個子過程，后面接過程名、參數(shù)列表、執(zhí)行體。如果只返回單個值還好說，反正 tcl里只有一種數(shù)據(jù)類型， return 回來就是了。 ? 主程序 只是為了整齊，前面的幾個部分如 source、 load 、 proc等都寫在文件的前部，實際上可以靈活些，只要在運(yùn)行的邏輯順序上不要發(fā)生“未定義的...”就可以。 “Mark John” puts [lindex $argv 0] 。 這個命令很有用，因為一個普通的 tcl命令會因為某種原因的錯誤使整個程序 down， 如果我們不想讓程序停止，用 catch來處理是個好辦法。 clock scan “12/31/2021” clock scan “20210821” 。它也支持?jǐn)?shù)據(jù)類型轉(zhuǎn)換 例： set x 100 set y [expr $x * 2 ] set z [expr $x * ] set zz [ expr $ + 1] set yy [expr double($x)] ? file 可以取得文件系統(tǒng)的有關(guān)信息，執(zhí)行有關(guān)操作。 lrange $SomeList first last 從 list的 first位置到 last位置返回一個子列。 ? regexp 對字符串進(jìn)行正則表達(dá)式分析 如： set x 01062501658 regexp “010(.*)” $x y z puts “$x $y $z” ? scan 從字符串里讀數(shù)據(jù)，同 C的語法 scan string format varName ?varName ...? scan 10,20 %d,%s x y ? set 和 unset set 設(shè)置或初始化一個變量 unset 釋放一個變量（有時很有用的） ? socket 打開一個 tcp連接，我沒用過，但亞信肯定用了，比如短消息網(wǎng)關(guān)。 string is class $SomeStr 返回字符串的類型，低版本 tcl不支持 string is digit 01062501658 。 /* 這里沒有 break */ case 2: puts(“This is 2”)。 對 oracle操作 ? 初始化 及連接 load set dbuser aiobs5/obs5aiAIOBS5 if {[catch {oralogon $dbuser} logon]} { puts connected failed,check your oracle user name and password exit 1 } if {[catch {oraop
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1