您好,我想通读一个文件,进入睡眠状态,然后检查是否有新记录写入该文件。如果是,我想处理记录,如果否,则返回睡眠并稍后再次检查(在永远循环中)。
我以为我可以做这样的事情,但是在它第一次读取文件之后,它似乎永远不会获取添加到文件中的新记录。
open (LOG, "<log_file") or die ("could not open log_file");
for (; ;)
{
print "Record Number == $.\n";
while ($text=<LOG>)
{
chomp ($text);
print "$text\n";
}
sleep (60);
}
close (LOG);
最初读取文件后,上面的脚本只是继续打印文件中最后一条记录的记录号。
我看到一些关于可用的 TailFile 包的信息,但似乎我没有它,而且此时很难加载。我希望有一个普通的 Perl 解决方案。
提前致谢。
文件::尾巴 http://search.cpan.org/perldoc?File::Tail是你的朋友。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)