【正文】 tinue。在 tcl里，主程序里的變量并不是全局可用的，必須在主程序或過程里用 global說明后，才能在過程里引用。比如 oratcl（ tcl的 oracle支持庫）。這也是 tcl和 C親緣關系的一個證明。需要注意的是，過程的參數(shù)列表應該和調(diào)用處的參數(shù)一致。 程序結構（續(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 只能返回字符串，這是一個不太靈活的地方。在 aiobs里，一個過程經(jīng)常要一次返回多個數(shù)據(jù)，就象 C里返回一個結構一樣，如何實現(xiàn)？用 list的方法，在調(diào)用返回的字符串里用 lindex解出各個單元。 proc 支持遞歸調(diào)用，不知有多深，反正做個 100！沒問題。 主程序入口時會帶來幾個變量，常用的有 數(shù)組 env 系統(tǒng) 的環(huán)境變量 本程序名 argv0 程序結構（續(xù)） ? 主程序（續(xù)） 入口參數(shù)個數(shù) argc （ 不包括本程序名，與 C不同） 入口參數(shù)列 argv （ 不包括本程序名） 如果調(diào)用程序： aiobs Mark John 那么在程序里： puts $arg0 。 argc = 2 puts $argv 。 Mark puts [lindex $argv 1] 。 ? catch 捕獲 tcl操作的錯誤 if { [catch {open $someFile w} fid] } { puts stderr Could not open $someFile for writing\n$fid exit 1 } 如果操作正常，變量 fid被設置成里面操作的返回值， If語句不成立；如果操作不正常， if語句成立，同時變量 fid被設成操作的錯誤信息。 語法要點（續(xù)） ? clock 時鐘 clock seconds 返回一個以秒為單位的整型值 clock format ClockValue format FormatString 把一個“秒”時間 返回成指定格式的字符串。一般來說， tcl的版本越高，支持的時間“格式”越多。 低版本不支持 clock scan “12/31/2021 23:10:0” clock scan “Wed Feb 21 12:03:10 2021” clock scan “next day” base [clock seconds] clock scan “next month” 用法太復雜了，要多實驗多體會。 數(shù)值計算只能在 expr里。 ? glob 按返回符合指定條件的文件名 list 語法要點（續(xù)） ? incr 簡單的計算變量的加減 incr x incr y 1 ? info 返回一些有關程序的信息。 end是 list操作的保留字 lindex $SomeList [expr [llength $SomeList] 1] 什么意思？ linsert $SomeList Index $SomeVar 在 Index（ 元素位置 ，如上文 0， end）處插入一個元素。 lreplace $SomeList first last $SomeVar 從 list的 first位置到 last位置的元素替換成新值 lsort ?option? $SomeList 對 list排序 lsearch $SomeList $SomeVar 在 list里搜索是否有某元素，經(jīng)常用到。相關操作 close 、 flush、 puts、 gets、read、 seek、 eof、 tell 語法要點（續(xù)） ? pid 返回本進程的 id， 有用嗎？我做后臺程序時用過。 語法要點（續(xù)） ? string 對字符串操作，是 tcl里最常用。 返回 10 string index $SomeStr charIndex 返回 SomeStr 中 charIdex處的字符。返回 1 string length $SomeStr 返回字符串長度 string range $SomeStr first last 返回字符串中 first 到 last部分 string trim $SomeStr ?Chars? 在字符串的兩頭刪除 Chars集中的字符，如果 Chars沒有說明，則刪除空格、 tab、回車、換行。操作很多，常用的形式： switch $SomeVar { 1 2 { puts “This is 1 or 2 “ } 3 { puts “This is 3” } default { puts “Other” } } 但不支持 C中類似結構： case 1: puts(“This is 1”)。break。break?？梢蚤_多個事務 puts open cursor failed”。在實際應用中如果有大量數(shù)據(jù)操作，可以分批提交以加快速度。 charset=gb_231280 TITLE使用明細查詢結果 /title /HEAD BODY background=./selfimages/ tcl proc days_of_month {year month} { … } … if {[info exists QUERY(bill_type)]} { 。變量在整個文件有效 } else { set ::error_msg 參數(shù) bill_type未找到！ ::kap::loadpage puts “ /center/body/html” 。amp。amp。 ? export AGENTLOGDIR=$HOME/aiomnivision/log/applog ? export AGENTTRACEDIR=$HOME/aiomnivision/trace ? export AITOOLS=$AIOMNIVISION/aitools ? export DATABASE=db2 或 oracle或 TDB ? 將 $AITOOLS/lib加入到系統(tǒng)環(huán)境變量中： SHLIB_PATH HPUX LD_LIBRARY_PATH MPRAS and SOLARIS (INTEL/SPARC) LIBPATH AIX ? 將 $AITOOLS/bin加入 PATH中 后附 ? 還有什么問題？ ? 多找點資料看看 ,很 easy.