TCL、TK学习交流文档

《TCL、TK学习交流文档》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、119-Tcl-Overview.ppt1998/01/03Tcl经验点滴文集文档结构Tcl介绍“HelloWorld”程序及扩展变量数据类型特殊字符数据结构控制结构程序结构语法要点对数据库操作实例（oracle）Socket编程实例ktcl文件及其冲值卡自服务修改密码例程一些建议后附我们为什么用Tcl？Tcl是什么?1、ToolCommandLanguage2、TerminalControlLanguageTcl是一种解释型的脚本语言。脚本解释器为tclsh，同时它也是一个shell环境。Tcl和C语言有着天然的亲缘关系，即相近的数据类型与控制结构；通过规范的API，能够

2、比较方便的用C进行Tcl的扩展开发。Tcl能做什么？1、Tcl首先是作为一种简单的命令脚本语言而发明，以便控制和调用各个系统命令。2、与C相似的数据类型与控制结构，使其具有处理高级事务的能力。3、强大的文本处理能力。4、扩展能力达到GUI、网络、OOP等各个方面。我们为什么用Tcl?1、因为亚信用它。2、确实好用，功能强大：从KAP加速引擎到html（ktcl）标签。为WebServer配置动态加速引擎KAP，TCL-plugin的安装。3、快速学习、快速开发。Tcl与C的比较项目TCLshellC赋值语句Setxy;setx5Setx=y(cshell)Strcpy(x,“

3、y”);x=5变量1。不需声明；2。在过程中用global指定使用全局变量。3。无数据类型和数据结构与shell类似1。需要声明，在函数体外指定全局变量2。有数据类型和数据结构变量的引用1。引用变量时用$,在赋值时一般不需要如：setxy;puts$x;setz$x;set$xb;puts$y;eval“puts$$x”与shell类似定义与引用是相同的。X=5;y=x调用用[]调用一个命令：Setx[stringlength$x]参数用空格分隔。在bshell中X=`ls–l`直接调用，参数用‘，’分割X=callfunc(1,2x);数组Setx(1)2;setx(y)3

4、Setx(1,y)y借用的数组概念X[1]=2;x[2]=3;流程控制Ifwhile,for,foreach条件是用{}扩的If,while,for；条件是用()扩的老套一个著名的程序世界上最著名的程序是什么？猜一猜：是“HelloWorld!”，下面是tcl版的程序(设$为Linux系统提示符)$cathello.tcl#!/usr/bin/tclshputs“HelloWorld!”$hello.tclHelloWorld!$shell方式(新开一个终端界面，调试命令行重要方式。)以上是以程序的方式运行；tcl也可以运行于shell的形式（提示符%）$tclsh%puts

5、“HelloWorld!”HelloWorld!%exit$老套(续)Tcl脚本程序的结构1、在第一行指定解释器#!/usr/bin/tclsh或如下写法#!/bin/sh#thenextlinerestartsusingtclshexectclsh"$0""$@"2、注释的标记为#如：#Thisisacommentsentence3、句与句（包括注释句）之间以“换行”或“;”分隔如：#Followingasentenceputs"line1"puts"line2";#Anothercomment老套(续)puts命令看tcl的帮助，是这样说：puts向一个channel（

6、相当于C里的句柄）写这里的channel可以是标准输出、一个打开的文件、一个打开的socket、甚至一个打开的Unix管道等等、等等。到后面我们的socket例程可以看到具体的使用含义。puts命令用法puts?-nonewline??channelId?string两个？表示之间的内容为可选。如上文的puts“HelloWorld!”向“屏幕（标准输出）”写字符串，可以写成putsstdout"HelloWorld!”-nonewline是puts命令的一个option，它的意思是“输出内容后不换行”另一个老套第二著名的程序$cathello2.tcl#!/usr/bin/

7、tclshputs-nonewline“Pleaseinputyourname:”setName[getsstdin];#Youcanwriteitas:getsstdinNameputs“Hello,$Name!”运行$hello2.tclPleaseinputyourname:MarkHelloMark!$另一个老套Sh与Tcl输入输出对比$morehello2.sh#!/bin/sh{echoechoecho"Pleaseinputyourname:c“readusernameecho"Hell