TCL文件I/O

TCL支持文件处理使用内置命令，如：open, read, puts, gets 和 close.

一个文件代表了一个字节序列，不要紧，如果它是一个文本文件或二进制文件。

打开文件

TCL使用open命令在Tcl中打开文件。打开文件的语法如下。

open fileName accessMode

在这里，文件名是字符串文字，用它来命名文件名，accessMode可以是以下值之一：

关闭文件

要关闭一个文件，请使用close命令。close 的语法如下。

close fileName 

当程序完成使用该文件已被打开的一个程序中的任何文件都必须关闭。在大多数情况下，文件不需要被明确地关闭;它们会自动关闭，当文件对象会自动终止。

写入文件

puts命令用于写入一个打开的文件。

puts $filename "text to write"

一个简单写入文件的例子如下所示。

#!/usr/bin/tclsh

set fp [open "input.txt" w+]
puts $fp "test"
close $fp

当上述代码被编译和执行时，它创建根据目录的新文件input.txt（在该程序的工作目录）。

读取文件

以下是简单从文件中读取的命令：

set file_data [read $fp]

读与写一个完整的例子如下所示。

#!/usr/bin/tclsh

set fp [open "input.txt" w+]
puts $fp "test"
close $fp
set fp [open "input.txt" r]
set file_data [read $fp]
puts $file_data
close $fp

当上述代码被编译和执行时，它读取在前面的部分创建的文件，并且产生以下结果：

test

下面是另一个例子读取文件，文件一行一行直到结束。

#!/usr/bin/tclsh

set fp [open "input.txt" w+]
puts $fp "test\ntest"
close $fp
set fp [open "input.txt" r]

while { [gets $fp data] >= 0 } {
   puts $data
}
close $fp

当上述代码被编译和执行时，它读取在前面的部分来创建的文件，并且产生以下结果：

test
test