cl腳本教程ppt課件(參考版)
2025-05-08 12:05本頁面
【正文】 ($y = 47)} … ? 過程必須有 return DB2 (OCI) ORACLE (OCI) TDB (OCI) DB2Tcl () ORATcl () TDBTcl () AIDBTcl() 應(yīng)用開發(fā) 不同數(shù)據(jù)庫 OCI封裝， *.SO Tcl實現(xiàn) SQL封裝，屏蔽差異 TCL應(yīng)用開發(fā)結(jié)構(gòu)圖 應(yīng)用開發(fā)環(huán)境設(shè)置 AIOMNIVISION ENV ? export AIOMNIVISION=$HOME/aiomnivision/bin。 $y = 47} ... 不如 if {($x 22) amp。 tcl的輸出是標(biāo)準(zhǔn)的 html文本，由瀏覽器顯示 return } /tcl …… /BODY /HTML 一些編程建議 ? 代碼說明 文件頭：摘要、版權(quán)、版本信息、其它（包定義） 過程頭：摘要、參數(shù)、結(jié)果 ? 縮進 最好用 4個空格縮進；如果是單行折返（即用 \連接的兩行，后續(xù)行）縮進 8個空格 ? 關(guān)于 {} {最好在行末；在控制結(jié)構(gòu)里 {}對最好存在，哪怕里面只有一行 if {$tcl_platform(platform) == “unix”} return 就不如 if {$tcl_platform(platform) == “unix”} { return } ? 清晰的表達(dá)式 if {$x 22 amp。從上一個頁面?zhèn)鱽韰?shù)，注意用法！ set bill_type [string trim $QUERY(bill_type)] 。 ? 預(yù)編譯 操作 $DBSQL $DBHandle update bms_subscription set bms_user_password \ =:user_password where bms_user_name = :user_name parseonly orabindexec $DBHandle :user_password $user_password \ :user_name $user_name ktcl 文件 ? ktcl 文件實際上是 html文件，里面可以加入 tcl標(biāo)簽 : HTML HEAD META equiv=ContentType content=texthtml。 exit 1 } set DBSQL orasql set DBNEXT orafetch set DBCOMMIT oramit set DBCLOSE oraclose 對 oracle操作（續(xù)） ? select 操作 set sql “ select bms_stomer_id, bms_customer_name ” append sql “ from bms_customer ” . . . $DBSQL $DBHandle $sql $DBNEXT $DBHandle { set Id 1 set Name 2 puts 2 . . . } 或者 proc Aproc { Id Name } { . . . } $DBNEXT $DBHandle “Aproc 1 2” 對 oracle操作（續(xù)） ? 其它 操作 set sql “ insert into $TableName ” append sql “ ( field1, ….) ” . . . If { [catch {$DBSQL $DBHandle $sql } errinfo ] } { puts “some wrong, $errinfo” $DBCLOSE $DBHandle return 1 } $DBCOMMIT $DBHandle 注意 catch的應(yīng)用。 對 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 {oraopen $logon} DBHandle ]} { puts open cursor failed exit 1 } if {[catch {oraopen $logon} DBHandle2 ]} { 。 case 3: puts(“This is 3”)。 /* 這里沒有 break */ case 2: puts(“This is 2”)。 string trimleft $SomeStr ?Chars? 在字符串的左邊刪 string trimright $SomeStr ?Chars? 在字符串的右邊刪 注意： 這三個 trim可別弄混了，否則 . . . 語法要點（續(xù)） ? switch 一個多分支的結(jié)構(gòu)，和 C差不多。 string is class $SomeStr 返回字符串的類型，低版本 tcl不支持 string is digit 01062501658 。 常用的操作： string first string1 string2 ?startIndex? 在 string2的 startInddex位置開始查找第一次匹配 string1的位置，例如： string first a 0a23456789abcdef 5 。 ? regexp 對字符串進行正則表達(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)。 join 、 split、 foreach 就不說了 ? open 打開 文件或管道，簡直和 C一樣。 lrange $SomeList first last 從 list的 first位置到 last位置返回一個子列。我常用于判斷一個變量是否存在： if { ![info exists VarName ] } { set VarName $So
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1