TCL 語法

jianyi · 發表於 2007-1-2 21:34:50

命令格式在Tcl裡每一條直譯器可以理解的"命令"加"參數"型式，它的語法模型很簡單，通常是一個命令後面加好幾個參數，如：

命令 [參數 1] [參數 2] [參數 3] [參數 4] ...... [參數 N]

空白字元用來分隔指令名稱與各個參數。
個別指令的分隔是以分號i或換行符號來作為分隔符號。
在 Tcl 裡有區分英文字母大小寫。

以下為 Tcl 語法裡的一些特殊符號和意義：

置換符號 (substitution symbols)
- $  (變數值置換符號)：
        $ 符號用來取出指定變數的值。底下利用 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 指令用來做數學式子的運算，會負責剖析參數並做數學運算。
群組符號 (grouping symbols)
- “”
        雙引號可將多個元素組成單一一個參數，引號內的內容會被 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]
置換與群組處理 (Substitution and Grouping)規則整理：
- TCL 指令的參數是以空白字元分隔，可以使用雙引號或大括號將多個元素組成一個參數。
- 如果是以大括號組出一個參數，TCL 不會對括住的內容進行任何置換，在對應的結束大括號出現前，任何字元都將視為參數的一部份，包含換行符號、分號或是內部巢狀的大括號。
- 如果是以雙引號組出一個參數，則在對應的結束雙引號出現前，雙引號中的內容會被 TCL 進行置換動作。
- 如果參數或是雙引號內的單字是以變數符號 $ 為開頭，則 TCL 為會進行變數的置換。
- 如果參數或是雙引號中有中括號，則在對應的中括號出現前，TCL 會對中括號中的內容進行指令的置換。
- 因為 TCL 是以空白字元作為參數分隔符號，因此要避免下列的錯誤：
  if {$x > 1}{puts $x}
  ^在此必需加上一個空白字元，以隔開 if 指令的第二及第三個參數。
其它符號
- \
  和 C base 語言一樣，反斜線可將特殊的字元做跳脫處理。例如 \n 代表換行符號。在 TCL 語言裏，如果一個指令超過一行，亦可在行尾使用反斜線做為續行的符號 (VB 指令如果超過一行，則是在行尾用底線符號代表續行)。
- 分號與換行號
  代表一個 TCL 指令的結束符號。
- #
        註解符號。通常我們會在一行程式碼的第一個字元打上 # 符號，以代表本行程式為註解。
        注意！如果在 # 符號前有 TCL 指令，必須像這樣做：
  
  puts hello ;# here is comment
        亦即，在 # 符號前加上一個分號代表前面指令的結束。如果不這麼做，那TCL 便會把 # 視為一個參數丟給 puts 指令去做處理。

變數Tcl使用弱定義型態的變數方式，它的特色包含如下：

使用Tcl的變數時不用預先宣告變數的資料型態。
Tcl的在讀入輸入的程式時，預設所有的變數內容都是用"字串的型式"儲存，如：
% set val1 12.3
% set val2 "12.3"
在這個例子中，Tcl會把 val1 和 val2 的內容看成是相等的，沒有數值和字串的差別。

在 Tcl 裡，變數名稱的取法也沒有任何限制，所以可以使用任何字元來為變數命名，甚至變數名跟指令名稱相同也沒問題。使用時只有一點要注意的，就是 TCL 是大小寫有別的語言。而 TCL 以 set 指令來設定變數值，如：

set x 5
set y 6
set PI 3.14
set PI*2 6.28 ;# 注意！變數名稱是 PI*2

unset 指令用來刪除一個或多個變數，來釋放記憶體空間，如：

unset x y PI

而TCL 的 set 指令除了設定變數值的用途外，也可以用來取出變數的內容，請先下指令 tclsh 進入 tcl 的直譯器，然後輸入下列指令：

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 版本為何。

可以在退出 tcl 直譯器之後將以下程式碼存成 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。