为什么 inotify 会丢失事件？

Question

我需要使用 Perl 和 Linux::Inotify2。

我编写了一个连续生成日志消息的测试脚本。为了处理事件，我的 Perl 脚本如下所示 -

#!/usr/bin/perl
use Linux::Inotify2 ;
use Time::HiRes qw(usleep nanosleep);
# create a new object
 my $inotify = new Linux::Inotify2
    or die "Unable to create new inotify object: $!" ;

 # create watch
 $inotify->watch ("/var/log/messages",  IN_ACCESS|IN_OPEN|IN_CLOSE|IN_MODIFY|IN_Q_OVERFLOW)
    or die "watch creation failed" ;
my $count=0;
 while () {
   my @events = $inotify->read;
   unless (@events > 0) {
     print "read error: $!";
     last ;
   }
   #printf "mask\t%d\n", $_->mask foreach @events ; 
   $count++;
   print $count."\n";
   usleep(100000);
 }

如果我取消注释 usleep 函数来模拟处理，我注意到当我停止日志生成器脚本时，inotify 脚本无法跟上它。换句话说，inotify Perl 脚本正在丢失事件。

我也没有看到任何溢出消息。

我如何确保即使我的处理速度很慢，我也不会丢失消息。换句话说，如何定义一个可以临时存储消息的“缓冲区”？

Answer 1

我将尝试解决您的根本问题，即使它不能完全回答您的问题。

我认为使用 inotify 来解决这个问题的方法太低级了。如果我是您，我会寻找一种更高级别的解决方案，使您从查找新事件的细节中解放出来，并让您专注于处理日志事件。当已经有很多好的可用工具时，无需重新发明轮子。

我的第一个选择是使用现代 syslog 守护进程（我个人更喜欢 Syslog-NG，但 rsyslog 也可以很好地工作），并将其直接与您的脚本绑定。您的脚本不需要在新事件进入时完成所有跟踪工作，您的脚本只需处理 stdin，并且 syslog 守护进程会在新日志进入时自动将其发送到您的脚本。我使用过此方法多次成功。

我的第二个选择是让更高级别的 Perl 模块承担尽可能多的繁重工作。我要寻找的第一个地方是 File::Tail。和以前一样，这使您摆脱了观看文件本身的问题，并让您专注于处理。

Answer 2

查看 CPAN 上的 Inotify 并尝试一下使用回调来检查所有错误：

 $inotify->watch ("/etc/passwd", IN_ACCESS | IN_MODIFY, sub {
      my $e = shift;
      print "$e->{w}{name} was accessed\n" if $e->IN_ACCESS;
      print "$e->{w}{name} was modified\n" if $e->IN_MODIFY;
      print "$e->{w}{name} is no longer mounted\n" if $e->IN_UNMOUNT;
      print "events for $e->{w}{name} have been lost\n" if $e->IN_Q_OVERFLOW;
  });

此外，您正在监视文件上的几乎每个事件。我只会监视修改事件或一小部分事件，以查看问题是否仍然存在。