tcl腳本語言

① tcl/tk 腳本語言 有什麼優勢

X-windows下面寫圖形界面用的,比較容易寫代碼，但是速度比較慢

② ns2中tcl腳本語言中$是什麼意思

就是用在變數前的一個說明符號，表明$後面就是一個前面已經申請過的變數，第一次申請不需要，後面要用到這個變數都需要在前面加上$

③ 各種腳本語言，比如shell和tcl、perl有啥區別呢

一、指代不同

1、perl：一種功能豐富的計算機程序語言，運行在超過100種計算機平台上。

2、tcl：工具命令語言。

3、shell：為使用者提供操作界面」的軟體（命令解析器）。

二、特性不同

1、perl：l借取了C、sed、awk、shell腳本語言以及很多其他程序語言的特性，其中最重要的特性是它內部集成了正則表達式的功能，以及巨大的第三方代碼庫CPAN。

2、tcl：本身不提供面向對象的支持。但是語言本身很容易擴展到支持面向對象。許多C語言擴展都提供面向對象能力，包括XOTcl,Incr Tcl等。另外SNIT擴展本身就是用TCL寫的。

3、shell：互動式解釋和執行用戶輸入的命令或者自動地解釋和執行預先設定好的一連串的命令。

三、優勢不同

1、perl：可以很容易操作數字，文本，文件和目錄，計算機和網路，特別是程序的語言。這種語言應該很容易運行外部的程序並且掃描這些程序的輸出獲取感興趣的東西。

2、tcl：經常被用於 快速原型開發,腳本編程，GUI和測試等方面。

3、shell：作為程序設計語言，定義了各種變數和參數，並提供了許多在高級語言中才具有的控制結構，包括循環和分支。

④ TCL腳本語言用什麼軟體來運行呀謝謝！！

GTR，目前華為使用的官方腳本語言就是tcl，該腳本語言用GTR運行。

⑤ tcl腳本語言編寫的socket客戶端

下面是client.tcl

proc Socket_Client {host port timeout} {
global connected
after $timeout {set connected timeout}
set sock [socket -async $host $port]
fileevent $sock w {set connected ok}
vwait connected
fileevent $sock w {}
if {$connected == "timeout"} {
return -code error timeout
} else {
return $sock
}
}
Socket_Client "10.33.132.2" 2540 100

⑥ TCL腳本語言中Isearch命令% lsearch $a y* 2 % lsearch $a y -1

1 list命令
語法： list ? value value...?
這個命令生成一個list，list的元素就是所有的value。例：
% list 1 2 {3 4}
1 2 {3 4}
concat命令:
語法:concat list ?list...?
這個命令把多個list合成一個list，每個list變成新list的一個元素。
3 lindex命令
語法：lindex list index
返回list的第index個(0-based)元素。例：
% lindex {1 2 {3 4}} 2
3 4
4 llength命令
語法：llength list
返回list的元素個數。例
% llength {1 2 {3 4}}
3
5 linsert命令
語法：linsert list index value ?value...?
返回一個新串，新串是把所有的value參數值插入list的第index個(0-based)元素之前得到。例:
% linsert {1 2 {3 4}} 1 7 8 {9 10}
1 7 8 {9 10} 2 {3 4}
6 lreplace命令:
語法：lreplace list first last ?value value ...?
返回一個新串，新串是把list的第firs (0-based)t到第last 個(0-based)元素用所有的value參數替換得到的。如果沒有value參數，就表示刪除第first到第last個元素。例：
% lreplace {1 7 8 {9 10} 2 {3 4}} 3 3
1 7 8 2 {3 4}
% lreplace {1 7 8 2 {3 4}} 4 4 4 5 6
1 7 8 2 4 5 6
7 lrange 命令:
語法:lrange list first last
返回list的第first (0-based)到第last (0-based)元素組成的串,如果last的值是end。就是從第first個直到串的最後。
例：
% lrange {1 7 8 2 4 5 6} 3 end
2 4 5 6
8 lappend命令:
語法：lappend varname value ?value...?
把每個value的值作為一個元素附加到變數varname後面，並返回變數的新值，如果varname不存在，就生成這個變數。例：
% lappend a 1 2 3
1 2 3
% set a
1 2 3
9 lsearch 命令:
語法：lsearch ?-exact? ?-glob? ?-regexp? list pattern
返回list中第一個匹配模式pattern的元素的索引，如果找不到匹配就返回-1。-exact、-glob、 -regexp是三種模式匹配的技術。-exact表示精確匹配；-glob的匹配方式和string match命令的匹配方式相同，將在後面第八節介紹string命令時介紹；-regexp表示正規表達式匹配，將在第八節介紹regexp命令時介紹。預設時使用-glob匹配。例:
% set a { how are you }
how are you
% lsearch $a y*
2
% lsearch $a y?
-1
10 lsort命令:
語法：lsort ?options? list
這個命令返回把list排序後的串。options可以是如下值：
-ascii 按ASCII字元的順序排序比較.這是預設情況。
-dictionary 按字典排序,與-ascii不同的地方是：
(1)不考慮大小寫
(2)如果元素中有數字的話,數字被當作整數來排序.
因此：bigBoy排在bigbang和bigboy之間, x10y 排在x9y和x11y之間.
-integer 把list的元素轉換成整數,按整數排序.
-real 把list的元素轉換成浮點數,按浮點數排序.
-increasing 升序(按ASCII字元比較)
-decreasing 降序(按ASCII字元比較)
-command command TCL自動利用command 命令把每兩個元素一一比較,然後給出排序結果。
11 split命令:
語法：split string ?splitChars?
把字元串string按分隔符splitChars分成一個個單詞，返回由這些單片語成的串。如果splitChars
是一個空字元{}，string被按字元分開。如果splitChars沒有給出,以空格為分隔符。例：
% split "how.are.you" .
how are you
% split "how are you"
how are you
% split "how are you" {}
h o w { } a r e { } y o u
12 join命令
語法:join list ?joinString?
join命令是命令的逆。這個命令把list的所有元素合並到一個字元串中，中間以joinString分開。預設的joinString是空格。例：
% join {h o w { } a r e { } y o u} {}
how are you
% join {how are you} .
how.are.you

⑦ tcl腳本語言

TCL腳本語言,
你是說話述嗎?

⑧ 有關Tcl腳本語言編程的問題

set srcfile myres.res
set dstfile dtest.txt
if {[catch {open $srcfile r} res]} {
puts "Failed to open the source file: $srcfile; $res"
return 0
}
set hSrc $res
if {[catch {open $dstfile w+} res]} {
puts "Failed to open the destination file: $dstfile; $res"
return 0
}
set hDst $res
foreach line [split [read $hSrc] \n] {
if {[regexp {rdly=(.*)targ=(.*)trig=(.*)} $line match sub1]} {
puts $hDst "Rise Delay is $sub1"
}
if {[regexp {fdly=(.*)targ=(.*)trig=(.*)} $line match sub1]} {
puts $hDst "Fall Delay is $sub1"
}
}
close $hSrc
close $hDst

⑨ TCL腳本語言

只有上面命令沒有結果出來