Tcl实现Shell中tail命令

下面的Tcl代码大体上就是Shell命令tail -f -s 1的效果。

proc getLines {fp} {
  while {[gets $fp line]>=0} {
    puts $line
  }
 
  if {0 && [eof $fp]} {
    puts "DEBUG: EOF [tell $fp]"
  }
  if {0 && [fblocked $fp]} {
    puts "DEBUG: BLOCKED [tell $fp]"
  }
  after 1000
}

set file [lindex $argv 0]
set fp [open $file r]
fconfigure $fp -block 0
fileevent $fp readable [list getLines $fp]

vwait forever

上面的eof和fblocked仅供测试使用，在本例中没有特别作用。