python调用tcl 脚本知乎

转载

网络安全专家 2024-10-11 14:46:43

文章标签 python调用tcl 脚本知乎 Tcl 脚本 D语言 Socket 文章分类 Python 后端开发

Tcl（最早称为“工具命令语言”"Tool Command Language"，但是目前已经不是这个含义，不过我们仍然称呼它为TCL）是一种脚本语言。由John Ousterhout创建。TCL很好学，功能很强大。TCL经常被用于快速原型开发，脚本编程，GUI和测试等方面。TCL念作“踢叩”（tickle）。Tcl的特性包括：

任何东西都是一条命令，包括语法结构（for,if等）。
任何事物都可以重新定义和重载。
所有的数据类型都可以看作字符串。
语法规则相当简单。
提供事件驱动给Socket和文件。基于时间或者用户定义的事件也可以。
动态的域定义。
很容易用C, C++，或者Java扩展。
解释语言，代码能够动态的改变。
完全的Unicode支持。
平台无关。Win32，UNIX，Mac上都可以跑。
和GUI紧密集成。Tk
代码紧凑，易于维护。

TCL本身在8.6以後提供面向对象的支持。因为语言本身很容易扩展到支持面向对象，所以在8.6之前存在许多C语言扩展提供面向对象能力，包括XOTcl, Incr Tcl等。另外SNIT扩展本身就是用TCL写的。

使用最广泛的TCL扩展是TK。 TK提供了各种OS平台下的图形用户界面GUI。Perl、Python等语言都提供接口适配到TK上。另一个流行的扩展包是Expect. Expect提供了通过终端自动执行命令的能力，例如（passwd, ftp, telnet等命令驱动的外壳）.

擴充套件

Tcl支援擴充套件，這些擴充套件提供了額外的功能（像是GUI，自動化，資料庫存取等）。

下面是一些Tcl擴充套件的列表：

tclodbc
mk4tcl
sqlite
Pgtcl, pgintcl
mysqltcl, msqltcl
AdabasTcl
FBSQL
ibtcl
Oratcl
Sybtcl
db2tcl
以及還有更多、更多 - 請參考Tcl/Tk Wiki，特別是Tcl/Tk Wiki Database Category。

範例

下面是TCL程序的例子：

#!/bin/sh # next line restarts using tclsh in path \ exec tclsh $0 ${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 when socket is readable fileevent $sock readable [ list handleData $sock ] } proc handleData { sock } { 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 dummy variable that is otherwise # unused. vwait forever

另外一个TK的例子（来自A simple A/D clock）它使用了定时器时间，3行就显示了一个时钟。

proc every {ms body} {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变量从当前时间中每秒更新一次。