2008-09-15 19 views

回答

6

在Perl中File::Tail模块不正是你所需要的。

3

的通用足够的答案:

大多数语言中,对EOF,返回,没有数据读取。您可以在间隔后重新尝试读取,如果文件已经增长,此时操作系统将返回数据。

2

你应该能够使用读取尾标准IO -f

3

tail -f的essense是下面的循环:

open IN, $file; 
while(1) { 
    my $line = <IN>; 
    if($line) { 
    #process line... 
    } else { 
    sleep(1); 
    seek(IN,0,1); 
    } 
} 
close IN; 

seek呼叫清除EOF标志。

0

我还以为通过发球输出的行动,并从那里tail'ing(或使用循环above)由三通一些使用创建的文件。

相关问题