Question

我正在尝试使用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？

Answer 1

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

update

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

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

但这对您的交互式测试有点帮助。（一种方法是加载Tk包;默认情况下开启运行事件循环，因此您不需要明确地执行此操作。并且可以让您管理窗口，因此它不会没有后果......）

使用fileevent拖拽本地文件

1 个答案: