perl – 为什么会输入丢失事件？

我写了一个连续生成日志消息的测试脚本.要处理事件,我的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 "maskt%dn",$_->mask foreach @events ; 
   $count++;
   print $count."n";
   usleep(100000);
 }

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

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

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