如何从Perl中不断更新的文件中读取？

发布时间：2020-12-16 06:11:26 所属栏目：大数据来源：网络整理

导读：问候,我想通读文件,进入睡眠状态,然后检查新记录是否写入文件.如果是,我想处理记录,如果没有回去睡觉并稍后再次检查(在永久循环中). 我以为我可以做这样的事情但是在第一次读取文件之后,它似乎永远不会拿起添加到文件中的新记录. open (LOG,"log_file") or d

问候,我想通读文件,进入睡眠状态,然后检查新记录是否写入文件.如果是,我想处理记录,如果没有回去睡觉并稍后再次检查(在永久循环中).

我以为我可以做这样的事情但是在第一次读取文件之后,它似乎永远不会拿起添加到文件中的新记录.

open (LOG,"<log_file") or die ("could not open log_file");

for (;  ;)   
{  
  print "Record Number == $.n";   

  while ($text=<LOG>)     
  {                       
    chomp ($text);
    print "$textn";
  }
  sleep (60);

}

close (LOG);

在最初读取文件之后,上面的脚本只是继续打印文件中最后一条记录的记录号.
我看到了一些关于TailFile软件包的问题,??但看起来我没有它,而且此时很难加载.我希望有一个vanilla perl解决方案.

提前致谢.

解决方法

File::Tail是你的朋友.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!