命令 [參數 1] [參數 2] [參數 3] [參數 4] ...... [參數 N]
- 空白字元用來分隔指令名稱與各個參數。
- 個別指令的分隔是以分號i或換行符號來作為分隔符號。
- 在 Tcl 裡有區分英文字母大小寫。
- 置換符號 (substitution symbols)[list]
- $ (變數值置換符號):
$ 符號用來取出指定變數的值。底下利用 set 指令設定 x 變數的值,並用 puts 指令輸出 x 的內容:
程式內容(下載):
set x 5
puts stdout $x 執行結果:
JYL@JYLDesktop ~
$tclsh TclTk_0002_001.tcl
5 如上列最後一行程式碼,取出變數值時需在變數名稱前加上 $ 符號。 - [ ] (命令置換符號):
TCL 將中括號中的內容視為一個指令,會執行其中的指令並將結果傳回。如:
程式內容(下載): set x 5
set y 10
puts "$x + $y = [expr $x + $y]" 執行結果:
JYL@JYLDesktop ~
$tclsh TclTk_0002_002.tcl
5 + 10 = 15 在做完 x 與 y 兩個變數的置換後,TCL解譯器遇到中括號認為其中有另一個可執行的指令,指令名稱為 expr。在執行 expr指令前,TCL先將 x 與 y 值置換後,傳遞給 expr 指令並呼叫執行之。expr 指令用來做數學式子的運算,會負責剖析參數並做數學運算。
雙引號可將多個元素組成單一一個參數,引號內的內容會被 TCL 進行置換處理,包括變數置換與命令置換,如:
程式內容(下載): set x 5
set y 10
puts "$x + $y = [expr $x + $y]" 執行結果:
JYL@JYLDesktop ~
$tclsh TclTk_0002_002.tcl
5 + 10 = 15
大括號的功能與雙引號相同,但 TCL 不會對括號中的內容做任何解釋或處理,會將括號中的內容視為一個參數,照本宣科原原本本地傳遞給指令去處理。如: 程式內容(下載): set x 5
set y 10
puts {$x + $y = [expr $x + $y]} 執行結果:
JYL@JYLDesktop ~
$tclsh TclTk_0002_003.tcl
$x + $y = [expr $x + $y] 因為 TCL 對大括號中的內容不做任何處理,因此它的輸出為 $x + $y = [expr $x + $y]。另外,TCL不會將大括號中的換行符號視為一個指令的結束,如果一個指令的參數很長時,我們就可以利用大括號這樣寫,把換行符號當成是參數的一部份:
程式內容(下載): set x 5
set y 10
puts {$x + $y =
[expr $x
+ $y ]
} 執行結果:
JYL@JYLDesktop ~
$tclsh TclTk_0002_004.tcl
$x + $y =
[expr $x
+ $y]
if {$x > 1}{puts $x}
^在此必需加上一個空白字元,以隔開 if 指令的第二及第三個參數。
和 C base 語言一樣,反斜線可將特殊的字元做跳脫處理。例如 \n 代表換行符號。在 TCL 語言裏,如果一個指令超過一行,亦可在行尾使用反斜線做為續行的符號 (VB 指令如果超過一行,則是在行尾用底線符號代表續行)。
代表一個 TCL 指令的結束符號。
註解符號。通常我們會在一行程式碼的第一個字元打上 # 符號,以代表本行程式為註解。
注意!如果在 # 符號前有 TCL 指令,必須像這樣做:
puts hello ;# here is comment 亦即,在 # 符號前加上一個分號代表前面指令的結束。如果不這麼做,那TCL 便會把 # 視為一個參數丟給 puts 指令去做處理。
- 使用Tcl的變數時不用預先宣告變數的資料型態。
- Tcl的在讀入輸入的程式時,預設所有的變數內容都是用"字串的型式"儲存,如:
% set val1 12.3
% set val2 "12.3"
在這個例子中,Tcl會把 val1 和 val2 的內容看成是相等的,沒有數值和字串的差別。
- set x 5
- set y 6
- set PI 3.14
- set PI*2 6.28 ;# 注意!變數名稱是 PI*2
- unset x y PI
JYL@JYLDesktop ~
$tclsh
%set pi 3.14 #設定變數 pi 的數值為 3.14
3.14
%set pi #取出變數 pi 的內容
3.14
%set pii #取出變數 pii 的內容,因為並沒有 pii 這個變數,因此會顯示:can't read "pii": no such variable
can't read "pii": no such variable
% 另外一個好用的指令為 info exists,我們可以使用 info exists 指令來檢查變數是否存在。例如在使用 incr 指令時,變數必須先建立才能為變數進行加法運算。此時便可使用 info exists 先檢驗變數的存在:
if {![info exists counter]} {
set counter 0
} else {
incr counter ;# counter 加 1
} TCL 在執行時會建立一些全域變數,可以利用 info global 列出有哪些全域變數:
JYL@JYLDesktop ~
$tclsh
%info global
tcl_rcFileName tcl_version argv argv0 tcl_interactive auto_oldpathauto_path errorCode errorInfo auto_index env tcl_patchLevel argctcl_libPath tcl_platform tcl_library
% 請注意喔,這裡請先下指令tclsh進入tcl的直譯器,之後再下info global指令列出全域變數,以下為幾個比較常用的變數意義:
- argc:存放程式的命令列參數個數。
- argv0:目前執行的 TCL Script 名稱。
- argv:存放所有命令列參數的list。
- env:陣列存放系統的環境變數。
- tcl_version:目前的 TCL 版本為何。
程式內容(下載):
puts "============start of some global variable============="
puts "\$argc=$argc"
puts "\$argv0=$argv0"
puts "\$argv=$argv"
puts "\$tcl_version=$tcl_version"
puts "\$tcl_rcFileName=$tcl_rcFileName"
puts "\$tcl_interactive=$tcl_interactive"
puts "\$auto_path=$auto_path"
puts "\$errorCode=$errorCode"
puts "\$errorInfo=$errorInfo"
puts "\$tcl_patchLevel=$tcl_patchLevel"
puts "\$tcl_libPath=$tcl_libPath"
puts "\$tcl_library=$tcl_library"
puts "============start of some global variable=============" 執行結果:
JYL@JYLDesktop ~
$tclsh TclTk_0002_0005.tcl
============start of some global variable=============
$argc=0
$argv0=ns2_0002_005.tcl
$argv=
$tcl_version=8.4
$tcl_rcFileName=~/tclshrc.tcl
$tcl_interactive=0
$auto_path=C:/cygwin/usr/share/tcl8.4 C:/cygwin/usr/share C:/cygwin/lib
$errorCode=
$errorInfo=
$tcl_patchLevel=8.4.1
$tcl_libPath=C:/cygwin/share/tcl8.4 C:/cygwin/share/tcl8.4C:/cygwin/usr/share/tcl8.4 C:/share/tcl8.4 C:/cygwin/library C:/libraryC:/../tcl8.4.1/library
$tcl_library=C:/cygwin/usr/share/tcl8.4
============start of some global variable============= TCL 的數學運算子
- - ~ !:「減號(Unary minus)」、「NOT位元運算(Bit-wise not)」、「NOT布林邏輯運算(Logical not)」。這些運算不可以用來操作字串(string)運算元,而且「NOT位元運算」只限於整數的操作。
- * / %:「乘(Multiply)」、「除(divide)」、「餘數(remainder)」。這些運算不可以用來操作字串(string)運算元,而且「餘數」運算只限於整數的操作。
- + -:「加(Add)」與「減(subtract)」。限用於數值運算元。
- << >>:「左右移位運算 (Shift Left / Right)」。運算只限於整數的操作。
- < > <= >=:布林運算「小於(less)」、「大於(greater)」、「小於等於(less than or equal)」、「大於等於(greater than or equal)」。如果條件成立這些運算子會產生「1」的結果,否則產生「0」。
- == !=:布林運算「等於(equal)」、「不等於(not equal)」。每個運算會產生0/1的結果。可適用於任何運算元。
- &:「AND位元運算(Bit-wise and)」。限於整數的操作。
- ^:「XOR位元運算(Bit-wise exclusive or)。限於整數的操作。
- |:「OR位元運算(Bit-wise or)。限於整數的操作。
- &&:「AND布林邏輯運算(Logical and)」。如果參與的兩個運算元都非零的話會得到1的結果,否則的話會得到0。限用於數值運算元(不限整數或小數)。
- ||:「OR布林邏輯運算(Logical or)」。如果參與的兩個運算元都是零的話會得到0的結果,否則的話會得到1。限用於數值運算元(不限整數或小數)。 [*]x?y:z:如果 x 為真時傳回 y 否則傳回 z。
