基于unix环境的tcl编程new

《基于unix环境的tcl编程new》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、维普资讯http://www.cqvip.com软件技术圜2003年5月10日第5期基于UNIX环境的tcl◆中国建设银行山东德州市分行陈根土一、引言handle的文件中读取string。tcl是toolcolnlnandIanguage(Z命令语言)的(2)输出命令简称。与dos环境下的basic和unix环境下的shell文本的输出操作是tcl语言中最常见的操作之一一样，tcl也是一种解释型编程语言，解释型语言不。其用法有两种：一种是将文本显示在屏幕I-，另需要将源程序编译成二进制执行代码，可以边解释一种是将文本写入文件中。边运行。基于unix环境的tcl，其结构简单，易于学putss

2、tring该命令将string显示在屏幕上。习，执行速度快。对于具有unixshell编程基础的人putsfilehandlestring将string写入文件句柄为来说，在很短的时间里即可掌握。笔者在建设银行filehandle的文件中。工作十余年，曾经就某一应用分别用unixshell和4．列表的创建与操作unixtcl进行处理，经对比，unixtcl的处理速度较列表(1ist)是tcl最基本的数据结构。创建列表unixshell快出许多。鉴于目前介绍unixtcl的中文有以下三种方法：书籍较少，笔者结合建设银行的某一应用向大家具sethstName【{termIlIterm2lIte

3、rm3lIsetlistName【splitterm1．term2．term3．】体介绍unixtcl的编程方法，希望能起到抛砖引玉setlistName【listtermlterm2term3】的作用。其中list命令和split命令用法如-V：二、tcl编程基础listarglarg2arg3生成包含argl，arg2，arg3的1．命令的基本结构列表。tcl命令与shell命令相似，其基本结构为：splitstringsplitchars将string以splitchars为分commandnamearguments隔符生成列表。其中commandname是tcl所要执行的命令，ar

4、．对列表进行操作的方法有多种，最常见的有以gtm~ent是执行此命令所需要的参数。与shell命令下三种形式：相同，tcl在一行中可写多条命令，命令与命令之间lindexlistNameindex获得列表变量listName第需用分号进行分隔。如果需要在表达式中使用另一index项的值个表达式的值，可用方括号来实现。注释与shell相llengthlistName获得列表变量listName的大小同，用#表示。foreachvarNamelistName{body}依次将列表例1变量listName中每项的内容赋与变量varNalnetcl>#Thisis8testexampletcl>s

5、etX0例2tcl>setbranchCode”370849052”tel>setX0；setbranchCode”370849052”tel>setx{1112131415l；sety【split8IbIcIdII】；setz【l-嵋t2l22tel>sety[exprsqrt(8~)】232425】tel>puts[1indexSx0h2．变量的赋值lltel>puts【lindexSy1】对变量进行赋值使用set命令。其语法为：bsetvarNa／nevalHetel>puts【llength$z】5对字符变量赋值，value一般用引号将内容括tel>seti0tel>foresch

6、J$z{puts$itermnumberoflistzis$j；incril起。具体用法见例1。0termnumberis211termnumberis223．输入与输出命令2termnumberis233termnumberis24(1)输人命令4termnumberis25文本的输入操作有两种，一种是从屏幕上读取5．字符串的操作文本，另一种是从文件中读取文本。(1)append命令getsstdinstring该命令从屏幕上读取string。append命令可以把多个字符追加到变量之getsfilehandlestring该命令从文件句柄为file一后。其语法为：日MAY．10．200

7、3NO．5维普资讯http://www.cqvip.com软件技术坪如金童肛2003年5月10日第5期appendvarNamestringforeach。另外，break和continue可用于循环控制，其例3用法与c语言完全相同。tcl>setaecountNtmd~r"370846150；appendSaccountNumberOlOoo0l35Ol(1)for命令tcl>puts$accountNum~r3708