使用EV为以后安排事件

Question

我使用EV定期(每5分钟)查询我的"事件队列"表，并触发任何超过其"触发"时间的事件。

但通常，触发时间将是未来几天或几周。因为我提前知道了触发时间，所以我应该能够减少EV循环的频率，但仍然在请求的确切时间触发事件，而不必等到循环的下一次迭代。

在EV中有办法做到这一点吗?我想在飞行中创建一个观察者会是解决方案吗?这是如何做到的呢?

Answer 1

应该像下面这样做:

use constant DB_CHECK_PERIOD => 5*60;
sub handle_db_events {
   my ($w) = @_;
   while (1) {
      my $secs = ...get seconds to earliest unprocessed event from the db...;
      $secs //= DB_CHECK_PERIOD;
      if ($secs > 0) {
         $w->set($secs > DB_CHECK_PERIOD ? DB_CHECK_PERIOD : $secs, 0);
         return;
      }
      ... process events that have expired and delete them from the db ...;
   }
}
my $w = EV::timer(DB_CHECK_PERIOD, 0, &handle_db_events);
handle_db_events($w);

如果你不能从DB中删除记录，你可以在记录中设置一个标志，表示它已经被处理，或者你可以使用一个由记录id索引的哈希。

我假设$w作为第一个参数传递给回调。