Perl 事件循环有多个阻塞观察者？

Question

我正在尝试找出 Perl 中的事件循环？

目前我的程序执行以下操作:

    while(my $event = wait_for_event()){
        handle_event($event);
        try_to_do_something();
    }

其中 wait_for_event 被阻塞。

我试图弄清楚是否可以使用 EV、AnyEvent(AE) 或其他东西来添加另一个事件观察程序。

例如，我希望能够每 2 秒调用一次 try_to_do_something()，但目前我无法将其放入事件循环中。

此外，我想添加某种形式的与程序的交互，可能通过套接字(另一个观察者)。

谢谢

Answer 1

事件系统的想法不是编写阻塞等待一个特定事件的线性代码，而是设置处理程序以在事件发生时执行操作，然后等待这些事件中的任何一个发生。当事件发生时，事件框架通常会分派(dispatch)到这些事件处理程序。诀窍是设置处理程序并等待它。

EV 和 AnyEvent 都支持此类功能。还需要注意的是 POE , IO::Async 和 Reflex .

总体思路在这些中都大致相同，但我将在IO::Async中给出一个例子。我最了解它，主要是因为它是我写的。

use IO::Async::Loop;
use IO::Async::Timer::Periodic;

my $loop = IO::Async::Loop->new;

$loop->add( IO::Async::Timer::Periodic->new(
    interval => 2,
    on_tick => \&try_to_do_something
)->start );

# Perhaps here you'd add your socket watcher, using an
# IO::Async::Handle or ::Stream or something else

$loop->run;

$loop->add方法将通知程序对象安装到循环中，在本例中是一个周期性计时器，每 2 秒运行一次指定的函数。程序底部主要$loop->run然后方法在适当的时间分派(dispatch)给事件处理程序。