问候,我想通读文件,进入睡眠状态,然后检查新记录是否写入文件.如果是,我想处理记录,如果没有回去睡觉并稍后再次检查(在永久循环中).
我以为我可以做这样的事情但是在第一次读取文件之后,它似乎永远不会拿起添加到文件中的新记录.
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软件包的问题,但看起来我没有它,而且此时很难加载.我希望有一个vanilla perl解决方案.
提前致谢.
解决方法
File::Tail是你的朋友.