Tcl在用'；打开的文件中查找和写入；a和x2B'；
我需要将一些日志存储在一个可以随每次执行而增长的文件中。一种合乎逻辑的方法是在打开时使用Tcl在用'；打开的文件中查找和写入；a和x2B'；,tcl,Tcl,我需要将一些日志存储在一个可以随每次执行而增长的文件中。一种合乎逻辑的方法是在打开时使用A+选项，因为使用w+将截断文件。但是，使用a+选项（Tcl 8.4），我无法在文件中的任何位置写入搜索工作正常。我可以使用tell验证指针是否已移动。但是输出总是在文件的末尾进行 有没有办法解决这个问题？也就是说，能够在任何地方查找和写入，并且能够在打开时保留旧文件。使用r+打开-它以读取模式打开（因此不会翻转文件），但也允许写入 有关更多信息，请参阅open的文档：我已验证使用a+选项是否允许我读取/写入
A+w+a+tell有没有办法解决这个问题？也就是说，能够在任何地方查找和写入，并且能够在打开时保留旧文件。使用
r+有关更多信息，请参阅
opena+#!/usr/bin/env tclsh
# Open the file, with truncation
set f [open foo w]
puts $f "one"
puts $f "two"
close $f
# Open again, with a+ ==> read/write/append
set f [open foo a+]
puts $f "three" ;# This goes to the end of the file
seek $f 4 ;# Seek to the beginning of the word "two"
puts $f "2.0" ;# Overwrite the word "two"
close $f
# Open and verify the contents
set f [open foo r]
puts [read $f]
close $f
one
2.0
three
如果您想插入文件的中间，您可能需要查看<代码> > FieluTyl <代码>包，其中包含“代码>：：FielUTIL::INSERTINTINFIOF命令。
< P>在TCL 8.5中，更改了UNIX上的TCL行为，以便将<代码> OyAppEng/<代码>标志传递给<代码>打开（）/<代码>系统调用。这使得操作系统总是将数据附加到文件中，并在将FD传递给子进程时被继承；对于日志来说，这正是正确的选择。（在8.4及之前的版本中，以及在Windows上的所有版本中，该行为都是在Tcl的文件通道实现中模拟的，它将在内部seek（）write（）之前结束）chan truncatea+a+ar+set f [open $filename {RDWR CREAT}]
为了进行比较，
a+RDWR create APPENDAPPENDseek$f endAPPENDopenopen$fname{RDWR CREAT}r+info patchlevelFILE\u APPEND\u DATACreateFile