关注我们

Tcl - I/O文件

Tcl在内置命令open，read，puts，gets和close的函数处理文件。

Open 函数

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

open fileName accessMode

在这里， filename 是字符串文字，您将使用它来命名文件，并且 accessMode 可以具有以下值之一-

Sr.No.	Mode & Remark
1	r 只读模式，该文件必须存在。
2	w 只写模式，如果不存在，则创建一个新文件，否则现有文件将被覆盖。
3	a 追加模式，并且该文件必须存在，向现有文件内容中追加内容。
4	r+ 读写模式，文件必须已经存在。
5	w+ 读写模式，如果存在，它将首先将文件清空；否则创建创建文件。
6	a+ 读写模式。如果文件不存在，它将创建文件，否则追加写入数据。

Close 函数

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

close fileName

程序执行完后需要调用close函数进行关闭文件。

Write 函数

Puts命令用于写入打开的文件。

puts $filename "text to write"

下面显示了一个写入文件的简单示例。

#!/usr/bin/tclsh

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

编译并执行上述代码后，它会在其下启动的目录中创建一个新文件 input.txt 。

Read 函数

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

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