linux - 如何在 TCL 中跟踪日志文件

Question

假设有一个文件 log.txt 并且某种类型的日志被永久地附加到它。

我想在 TCL 环境中跟踪那个文件。

我已经试过了，但没用。

set log [open log.txt a]

for { } { true } { update; after 1000 } {

    # expected to get here the appended part
    read $log

    seek $log 0 end

}

是否可以通过相同的文件句柄 log 读取修改后的文件，或者我必须关闭并重新打开文件 log.txt？

在 TCL 中是否有一种与 Linux 命令 tail -f 等价的命令？

Answer 1

只需使用tail。它比你更了解如何处理复杂的情况(你可以查看它的来源)。

在我的一个项目中，我有类似这样的东西来监视由专有工具生成的跟踪文件:

set fd [open [list | tail --follow=name --retry --lines 0 $opt(trace) 2>@1]]
chan event $fd readable [list FollowTrace $fd]

proc FollowTrace fd {
  if {[gets $fd line] < 0} {
    set code [catch {close $fd} err]
    if {$code == 0} {
      set ::result 0
    } else {
      puts stderr $err
      set ::result 1
    }
    return
  }

  switch -regexp -matchvar parts -- $line {
    {Tm_Session::Open.*FileName=([^,]+)} {
       TryMakeLock [FullPathname [lindex $parts 1]]
     }
     {Tm_Session::Close.*FileName=([^,]+)} {
        StartUpload [lindex $parts 1]
     }
  }
}

一般的想法是，您在给定文件上生成 tail，然后进入事件循环并逐行处理 tail 的输出。