TCL编程

⑴ TCL的语言简介

TCL (最早称为“工具命令语言”Tool Command Language, 但是已经不是这个含义，不过我们仍然称呼它为TCL)是一种 脚本语言。 由John Ousterhout创建。 TCL很好学，功能很强大。TCL经常被用于 快速原型开发,脚本编程， GUI和测试等方面。TCL念作“踢叩” tickle. Tcl的特性包括:
* 任何东西都是一条命令，包括语法结构(for, if等)。
* 任何事物都可以重新定义和重载。
* 所有的数据类型都可以看作字符串。
* 语法规则相当简单
* 提供事件驱动给Socket和文件。基于时间或者用户定义的事件也可以。
* 动态的域定义。
* 很容易用C, C++,或者Java扩展。
* 解释语言，代码能够动态的改变。
* 完全的Unicode支持。
* 平台无关。Win32, UNIX, Mac上都可以跑。
* 和Windows的GUI紧密集成。 Tk
* 代码紧凑，易于维护。
TCL本身不提供面向对象的支持。但是语言本身很容易扩展到支持面向对象。许多c语言扩展都提供面向对象能力，包括XOTcl, Incr Tcl等。另外SNIT扩展本身就是用TCL写的。

⑵ tcl/tk 这种编程语言过时吗

tk 对我来说最大用处是：
有时写个 python cli ，运行时间比较长，一般扔进后台开始运行就不理会了
运行完毕想简单弹个 GUI 通知结束，这时不想还用什么大型的 GUI 来写， tk 几行就行了。

⑶ TCL编程的语法规则

TCL的语法规则：

1、解释器
在Tcl的数据结构中的核心是Tcl_Interp.一个解释器包含了一套命令，一组变量和一些用于描述状态的东西。每一个 Tcl命令是 在特定的Tcl_Interp中运行的，基于Tcl的应用程序可以同时拥有几个Tcl_Interp。Tcl_Interp是一个轻量级的结构，可以快速的新建和删除。

2、数据类型
Tcl只支持一种数据结构：字符串（string）。所有的命令，命令的所有的参数，命令的结果，所有的变量都是字符串。请牢记这一点，所有的东西都是字符串。这是它比较有特点的方面字符串有三种形式：命令(command),表达式(expresion)和表(list)。

3、Basic Command Syntax 基本语法
Tcl有类似于shell和lisp的语法，当然也有许多的不同。一 条Tcl的命令串包含了一条或多条命令用换行符或分号来隔开，而每一条命令包含了一个域(field)的集合，域使用空白分开的，第一个域是一个命令的名字，其它的是作为参数来传给它。
例如：
set a 22 //相当于C中的 a=22 a是一个变量这条命令分为三个域：1：set 2：a 3：22 set使用于设置变量的值的命令，a、20 作为参数来传给它，a使它要操作的变量名，22是要付给的a值。
Tcl的命令名可以是内置的命令也可以是用户建的新命令，如果是用户用户建的新命令应用程序中用函数Tcl_CreateCommand来创建。所有的参数作为字符串来传递，命令自己会按其所需来解释的参数的。命令的名字必须被打全，但 Tcl解释器找不到一同名的命令时会用 unknown命令来代替。
在很多场合下，unknown 会在库目录中搜寻，找到一个的话，会自动生成一个Tcl命令并调用它。unknown经常完成缩略的命令名的执行。但最好不要使用。

4、注释
和shell很象，第一个字母是"#"的Tcl字符串是注释。
其他细节规则
Grouping arguments with double-quotes 用双引号来集群参数，目的在于使用有空白的参数。
例如：
set a "this string contains whitespace"
如果一个参数一双引号来开始，该参数会一直到下一个双引号才结束。其中可以有换行符和分号。
Variable substitution with $ 用美元符进行变量替换说白了就是引用该变量。
例如：
set a hello
set b $a // b = "hello" 实际上传给set命令的参数
//是b,"hello"
set c a // b = "a"
Command substitution with brackets 命令子替换（用方括号）
例如：
set a [set b "hello"]
实现执行 set b "hello" 并用其结果来替换源命令 中的方括号部分，产生一条新命令
set a "hello" //"hello" 为 set b "hello" 的返回值
最终的结果是b="hello" a="hello"
当命令的一个子域以方括号开始以方括号结束，表示要进行一个命令子替换。并执行该子命令，用其结果来替换原命令中的方括号部分。方括号中的部分都被视为Tcl命令。
如下一个复杂一点的例子：
set a xyz[set b "abc"].[set c "def"]
//return xyzabcdef
Backslash substitution 转移符替换
转移符时间不可打印字符或由它数意义的字符插入进来。这一概念与C语言中的一样。
 Backspace (0x8).
f Form feed (0xc).
Newline (0xa).
Carriage-return (0xd).
Tab (0x9).
v Vertical tab (0xb).
{ Left brace (`{").
} Right brace (`}").
[ Open bracket (`[").
] Close bracket (`]").
$ Dollar sign (`$").
sp Space (` "): does not terminate argument.
; Semicolon: does not terminate command.
" Double-quote.
Grouping arguments with braces 用花扩括号来集群参数
用花扩括号来集群参数与用双引号来集群参数的区别在于：用花扩括号来集群参数其中的三种上述的子替换不被执行。而且可以嵌套。
例如：
set a {xyz a {b c d}}//set收到两个参数 a "xyz a {b c d}"
eval {
set a 22
set b 33
}//eval收到一个参数 "set a 22
set b 33"

5、命令综述
1．一个命令就是一个字符串（string）。
2．命令是用换行符或分号来分隔的。
3．一个命令由许多的域组成。第一个于是命令名，其它的域作为参数来传递。
4．域通常是有空白（Tab横向制表健 Space空格）来分开的。
5．双引号可以使一个参数包括换行符或分号。三种子替换仍然发生。
6．花括号类似于双引号，只是不进行三总体换。
7．系统只进行一层子替换，机制替换的结果不会再去做子替换。而且子替换可以在任何一个域进行。
8．如果第一个非控字符是`#",这一行的所有东西都是注释。

6、表达式
对字符串的一种解释是表达式。几个命令将其参数按表达式处理，如：expr、for 和 if,并调用Tcl表达式处理器(Tcl_ExprLong,Tcl_ExprBoolean等)来处理它们。其中的运算符与C语言的很相似。
!
逻辑非
* / % + -
<< >>
左移 右移 只能用于整数。
< > <= >= == !=
逻辑比较
& ^ |
位运算和 异或 或
&&''
逻辑"和" "或"
x y : z
If-then-else 与C的一样
Tcl 中的逻辑真为1，逻辑假为0。
一些例子：
5．/ 4.0
5．/ ( [string length "abcd"] + 0.0 )
计算字符串的长度 转化为浮点数来计算
"0x03" > "2"
"0y" < "0x12"
都返回 1
set a 1
expr $a+2
expr 1+2
都返回 3

⑷ tcl编程语言画图学习，从入门到学成到该多久（或者多少学时）

有c语言基础，掌握绘图函数大约需要一个月时间。

⑸ TCL编程代码太长，如何换行

回车可以换行。如果需要将两行连接成一行的话，可以用\将两行连接成一行。

⑹ PLC程序可以用TCL语言编写吗

我也是用UG编程的，UG后处理的确比较深奥，需要一定的功底，而且这个东西事关重大，不能出一点点错，所以几乎每个公司都有通过各种渠道得来的非常成熟的后处理，不需要我们编程的去做后处理文件。
你所说的就是自己做.tcl和.pui两个文件，我不会做，但我知道有这两个文件了应该怎么办。一般做编程的知道这就够了。

⑺ 有关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脚本谢谢

比如说设置一个变量，同时给其赋值：
set
var1
10
tcl脚本中的注释，如果在行首，使用#注释内容；
如果在行尾，使用;#注释内容
打印字符串在屏幕上，使用
puts
"要输出的内容"
还有对文件的操作，字符串的操作等，你最好下载一个tcl教程，如果有一些编程基础，看看差不多就行了，很简单的。

⑼ 在Tcl语言编程中怎么定义一个全局变量

使用两个冒号来定义的
比如set ::a 1

⑽ TCL语言的具体例子

下面是TCL程序的例子：
#!/bin/sh
# next line restarts using tclsh in path
exec tclsh ${1+$@}
# echo server that can handle multiple
# simultaneous connections.
proc newConnection { sock addr port } {
# client connections will be handled in
# line-buffered, non-blocking mode
fconfigure $sock -blocking no -buffering line
# call handleData whensocketis readable
fileevent $sock readable [ list handleData $sock ]
}
proc handleData {
puts $sock [ gets $sock ]
if { [ eof $sock ] } {
close $sock
}
}
# handle all connections to port given
# as argument when server was invoked
# by calling newConnection
set port [ lindex $argv 0 ]
socket-server newConnection $port
# enter the event loop by waiting
# on a mmy variable that is otherwise
# unused.
vwait forever
另外一个TK的例子 (来自 A simple A/D clock) 它使用了定时器时间，3行就显示了一个时钟。
proc every {msbody} {eval $body; after $ms [info level 0]}
pack [label .clock -textvar time]
every 1000 {set ::time [clock format [clock sec] -format %H:%M:%S]} ;# RS
解释：第一行定义了过程every， 每隔ms毫秒，就重新执行body代码。第二行创建了标签起内容由time变量决定。第3行中设置定时器，time变量从当前时间中每秒更新一次。
Tcl被广泛的用做script语言，大多数情况下，Tcl和Tk(“Tool Kit”)库同时使用，Tk是一系列令Tcl易于编写图形用户接口的命令和过程
Tcl的一个重要特性是它的扩展性。如果一个程序需要使用某些标准Tcl没有提供的功能，可以使用c语言创造一些新的Tcl命令，并很容易的融合进去。正是由于Tcl易于扩展，很多人为它编写了扩展包，并在网上共享。
Tcl和其他编程语言例如c不同，它是一种解释语言而非编译语言。Tcl程序由一系列Tcl命令组成，在运行时由Tcl解释器解释运行。解释运行的一个优点是它可以自己为自己生成Tcl script。