read and writing in tcl

Question

在TCL中，当它同时写入时，有什么方法可以读取吗
我试着使用w+所以，但没有成功。

set f0 [open out11.tr w+]  

所以我想读取在同一时间完成写入的每一行

Answer 1

虽然w+模式可以工作，但当您打开它时，它确实会截断文件（因为它是对w模式的修改，做同样的事情）。如果不想擦除现有数据，请改用r+（在这种情况下，文件必须首先存在）。

当你想创建文件时，如果它不存在，能够通过同一通道读取和写入，并且不想在打开时截断它，你必须使用其他形式的模式描述符（如果你对助记符感兴趣，从POSIX描述符派生）：

set f0 [open out11.tr {RDWR CREAT}]

（w+是RDWR CREAT TRUNC，r+是普通RDWR。）

Answer 2

下面的例子用w+打开一个文件（意思是读/写，但如果文件已经存在，则截断内容）。然后它写每一行，然后读回来，写，然后读回去。。。

set lines {
    {Lorem ipsum dolor sit amet, consectetur adipiscing elit. Morbi}
    {accumsan est ut ante ornare et porta sem iaculis. Fusce a dolor}
    {magna, eget viverra quam. In sem justo, hendrerit a porttitor sit}
    {amet, scelerisque eu turpis. Nulla arcu arcu, condimentum vel}
    {fermentum sit amet, vulputate et sapien. Aenean convallis, purus vel}
    {molestie vehicula, diam eros adipiscing nibh, in dapibus nisi orci}
    {ut nisl. Ut fermentum felis a lectus lacinia dapibus. Nunc cursus}
    {nunc vitae massa fermentum imperdiet. In eu lectus quis arcu}
    {convallis imperdiet in quis tortor.}
}
set f [open out.txt w+]
set lastRead 0
foreach line $lines {
    # Write to the file
    puts $f $line
    # Read it back and display to stdout
    seek $f $lastRead
    gets $f line2
    set lastRead [tell $f]
}
close $f