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脚本语言

只有上面命令没有结果出来