Perl和IRC：定期向频道发送消息

Question

我正在制作一个Perl IRC机器人，我不想定期向频道发送消息。我正在使用POE::Component::IRC，但据我所知，没有方法或事件处理这个。

有没有办法实现这个目标？

Answer 1

你可以使用POE :: Kernel的delay例程来像一次性调用自身一样。

基本上，您有一个名为my_event的事件处理程序。在my_event内，您将PRIVMSG发送到频道。然后使用通过POE继承的my_event例程调用此相同的事件处理程序delay。

请参阅：http://poe.perl.org/?POE_Cookbook/Recurring_Alarms