[求助]tcl中文件读写的问题

leo314034

我想打开一个文件，然后比如读到第2行，在后面加used,可发现used总是加到文件的最后，这是为什么呢？我打印了文件的偏移量，是第二行的结尾阿

#!/opt/tools/bin/tclsh

set fname {/home/leozhu/AlphaNumber}


set f [open $fname r+]

puts "hello"

while { [gets $f line]>=0 } {
  if {[regexp {used} $line]} {
    continue
    } else {
    scan $line "%s" PhoneNumber
    puts stdout $PhoneNumber
    set pos  [tell $f]
    puts $pos
    set $f $pos
    puts $f used
    break
   }
}
puts "end"
close $f
exit 0

waker

set $f $pos 这是啥意思？

leo314034

不好意思，写错了，应该是
seek $f $pos

waker

如果你想puts在gets之后,直接 seek $f 0 current 试试

另外这是不是个bug是没必要讨论的，tcl的open/puts/gets是建立在系统调用的基础上的，在俺的机器上man fopen 中有这样的一段

       Reads and writes may be intermixed on read/write streams in any order.
       Note  that  ANSI C requires that a file positioning function intervene
       between output and input, unless an input operation encounters end-of-
       file.  (If this condition is not met, then a read is allowed to return
       the result of writes other than the most  recent.)   Therefore  it  is
       good  practice  (and indeed sometimes necessary under Linux) to put an
       fseek or fgetpos operation between write and read operations on such a
       stream.  This operation may be an apparent no-op (as in fseek(..., 0L,
       SEEK_CUR) called for its synchronizing side effect.

dearvoid

这样直接在原文件上添加数据是不可行的

leo314034

多谢楼主！现在改用另外一种方法了，直接跳过原来读的内容，这样就不用在读过的内容上加标记了。

proc readfile {} {

global pos
global fname
global numberphone

set f [open $fname r+]

if {$numberphone > 0} {
set pos  [expr [expr $numberphone*6] +$numberphone]
}

seek $f $pos

while { [gets $f line]>=0 } {
    scan $line "%s" PhoneNumber
    puts stdout $PhoneNumber
    break
   }
close $f

incr numberphone 1
}

dearvoid

原帖由 leo314034 于 2007-10-11 21:20 发表
多谢楼主！现在改用另外一种方法了，直接跳过原来读的内容，这样就不用在读过的内容上加标记了。

楼主者谁?