在TCL中，我从尾部打开一个文件

Question

我有这个问题：
我有时需要处理大量的文本文件 在某些情况下，我知道我关心的数据位于文件的尾部。如果我使用普通打开，我需要滚动线条。有没有办法从最后开始＃34;并节省时间，也许可以向后阅读文件？

Answer 1

您可以使用seek命令：

set linesz 256 ; # assume an approximate line size
set fh [open myfile.txt]
seek $fh [expr {$linesz*-5}] end
gets $fh line ; # this first line is probably a partial line, ignore it.
while { [gets $fh line] >= 0 } {
   # process
}
close $fh

参考文献：seek