TCL文法複習筆記(二)

#join 常用在清單中的元素組成一個字元串.

set a {a b c {de} 

ef g 

ok}

join $a { }

join $a {}

#eval指令的使用    構造指令

set a {puts "hello";}

set b {puts "ok";}

eval $a $b

#source 路徑是/ 不是 \

#upvar    

upvar #0 portGroup arrayName

#不管在哪個站都可以引用.

#regexp(    indics,-line)

set a "

10.10.10.0/24 gi/03 label 30

20.20.20.0/24 gi/03 label 40

"

regexp -line {\d+.\d+.\d+.0(.*)?gi/03} $a match 

#比對到10.10.10.0/24 gi/03

regexp {\d+.\d+.\d+.0(.*)?gi/03} $a match 

#比對到10.10.10.0/24 gi/03 label 30

#20.20.20.0/24 gi/03

#string

string compare -nocase -length 20 $str1 $str2

string equal $str1 $str2

string first ab defabcab

string first ab {ffefeffe efab e eab}

string last ab defabcab

string index abcdefe 2

string index abcfe end-2

string length {abcdef fef ef }

llength {abcfe fe fe}

string match {*[a-z]} dfeaff

string range {abffe fefe    ef} 0 6

string range {abffe fefe    ef} 0 end

string repeat "abc" 2

string replace {dfe e f ef e} 0 3 hello

string tolower {feeEFe}

string toupper {feeEfe}

#預設去掉所有空白符号等.

string trim $a 

string trimleft $a

string trimright $a

#檔案操作 (打開檔案,取出,再覆寫.?)

set fileId [open E:/dynamip/tes.tcl w]

set line [gets $fileId]

puts $fileId "okkkk$line"

flush $fileId

close $fileId

本文轉自wzhj132 51CTO部落格，原文連結:http://blog.51cto.com/wzhj132/301170