关于TCL脚本的文件输入输出

set f [open e:/00 w] #用句柄f以写的方式打开文件e;/00 文件必须存在

目前成都创新互联公司已为上千家的企业提供了网站建设、域名、网络空间、网站托管运营、企业网站设计、托克逊网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

puts $f "nihao" #将内容nihao输出至句柄f

close $f #关闭句柄f

set f [open e:/00 r] #用句柄f以读的方式打开文件e;/00 若文件不存在将创建

while {[gets $f line] = 0} { #读取一行内容

puts $f

} #显示该项内容

close $f #关闭句柄f

set f [open e:/00 a] #用句柄f以追加的方式打开文件e;/00 若文件不存在将创建

puts $f "nihao" #将内容nihao输出至句柄f

close $f #关闭句柄f

如何在Linux系统中编写，编译和运行Tcl程

linux下和windows下基本一样的

先装jdk,去官网下载rpm或者gz包安装，也可以yum在线安装open-jdk

配置环境变量(在/etc/profile中配置,配置完成后source以下这个文件使之生效)

用vi编写源文件

命令行javac命令编译代码

命令行java命令运行代码

除了安装包从exe变成了rpm或者gz

编写代码的工具从记事本换成vi

其他不都和windows下一样么

linux 如何运行tcl

1. 创建

例如想创建一个 *.tcl的文件,只需在终端中输入

touch *.tcl 即可

2. 编译

可用不同的编译器对 *.tcl文件进行编译

1 vi *.tcl

2 vim *.tcl

3 gedit *.tcl

3. 运行

我是用ns2运行*.tcl文件的

所以运行时输入的就是

ns *.tcl