0

我正在尝试使用fileevent（应该只有 Tcl 8.4 版本，所以我不能使用chan命令）来跟踪文件。

% proc GetData {chan} {
 set data [read $chan]
    puts "[string length $data] $data"
    if {[eof $chan]} {
        fileevent $chan readable {}
    }
}
% 
% 
% 
%  set fp [open "|tail -f /home/dinesh/input" r+]
file7
% fconfigure $fp
-blocking 1 -buffering full -buffersize 4096 -encoding utf-8 -eofchar {{} {}} -translation {auto lf}
% fconfigure $fp -blocking 0  -buffering  line 
% 
% 
% 
% 
%  fileevent $fp readable [list GetData $fp]
%

我已经cat在另一个终端中使用命令更改了文件内容，但仍然GetData没有被调用。

有了gets $fp line，我可以得到修改后的内容，但为什么 fileevent 没有被触发？

4

1 回答 1

1

调度的回调fileevent仅在您运行事件循环时发生tclsh，默认情况下不会为您运行事件循环。尝试这样做，看看我的假设是否正确：

update

如果是，您需要将程序设计为由回调驱动。运行事件循环的标准方式是这样的：

vwait forever
# Any global variable name would do, but “forever” has a nice feel

但这对您的交互式测试帮助不大。（解决这个问题的一种方法是加载 Tk 包；默认情况下会打开运行事件循环，因此您不需要明确地这样做。并为您提供管理窗口，因此并非没有后果......）

于 2017-06-07T05:33:44.107 回答