tcl基础教程——(2)输出和变量

《tcl基础教程——(2)输出和变量》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、TCL基础教程——（2）输出和变量    在linux下，可以执行tclsh来进入tcl的编译环境，你将看到一个%的提示符，表示你现在正在tcl的环境中，windows下也类似。[ppcorn@localhostppcorn]$tclsh%TCL的Helloworld和所有的程序一样，我们的第一个程序也是从HelloWorld开始，首先看看命令行格式下的Helloworld%puts“Helloworld”Helloworld当然，这个仅仅是命令行格式的，作为一个真正的程序，我们不能这么写。 第一个程序：Hellowor

2、ld.tcl#!/usr/bin/tclshputs"Helloworld"用文本编辑器写下该文件，可以保存在任何目录，当然，最好是本人的工作目录，记得使用chmod+xHelloworld.tcl命令给于该文件执行权限，然后使用./Helloworld.tcl执行就可以看到和上面相同的结果了。[ppcorn@localhostppcorn]$./Helloworld.tclHelloworld对于任何的tcl文件，第一行必须是类似于#!/usr/bin/tclsh的，指定了脚本语言编译器的位置，这个和perl，sh等脚

3、本语言是完全一致的。puts是TCL中的标准输出函数，任何输出都使用puts来完成。可以把字符窜写在双引号””中间，也可以写在大括号{}之间，puts都会输出整个字符窜，对于””和{}的不同，等一会说明。程序和运行结果如下[ppcorn@localhostppcorn]$catHelloworld.tcl#!/usr/bin/tclshputs{Helloworld}[ppcorn@localhostppcorn]$./Helloworld.tclHelloworld TCL中的变量在TCL中，只有一种变量类型，也就是说

4、，这种变量既可以表示数字，右可以表示字符窜，还可以表示数组，等等等等，对于在TCL中使用变量，直接使用如下格式set变量名值 如下面的程序[ppcorn@localhostppcorn]$catvartest1.tcl#!/usr/bin/tclshsetvar1"Helloworld"puts$var1[ppcorn@localhostppcorn]$./vartest1.tclHelloworld 可以看出，在定义变量的时候，不需要使用$，而在使用该变量的时候，则需要$。下面看第二个程序[ppcorn@localho

5、stppcorn]$catvartest2.tcl#!/usr/bin/tclshsetvar1"Helloworld"puts"$var1"puts{$var1}[ppcorn@localhostppcorn]$./vartest2.tclHelloworld$var1第一输出行，我们把变量放在””之间，输出的是变量的值，第二输出行，我们把变量放在{}之间，输出的是变量名本身，这就是上面谈到的使用””和{}之间的不同，{}会把里面的内容原封不动的输出，而””会进行变量的替换。同时，我们也可以看到，使用puts进行输出以

6、后，是换行的，如果想要输出后不换行的话，怎么处理呢？使用-nonewline参数，如[ppcorn@localhostppcorn]$catvartest3.tcl#!/usr/bin/tclshsetvar1"Helloworld"puts-nonewline"$var1"puts{$var1}[ppcorn@localhostppcorn]$./vartest3.tclHelloworld$var1 既然使用set来进行变量的定义，那么unset用来做什么呢？对，用来取消变量的定义。如果在把vartest1.tcl进

7、行修改，可以看到结果。[ppcorn@localhostppcorn]$catvartest1.tcl#!/usr/bin/tclshsetvar1"Helloworld"puts$var1unsetvar1puts$var1[ppcorn@localhostppcorn]$./vartest1.tclHelloworldcan'tread"var1":nosuchvariablewhileexecuting"puts$var1"(file"./vartest1.tcl"line5)可以看到在使用了unset以后，var

8、1变量已经不可以访问了，提示没有这个变量。除了我们定义的变量外，TCL还预定了一些和系统相关的变量，可以直接使用，同时，希望您在定义变量的时候，不要和他们冲突，这些变量是argcargvargv0embed_argsenvtcl_interactivetcl_librarytcl_patchleveltcl_plat