如何在 Perl 中安排任务？

Question

有谁知道 perl 是否支持任务调度程序？

我正在开发控制一堆 perl 脚本的 ac# 程序。珀尔 脚本通过套接字接口与某些设备通信。设备“目标” ，是一种需要实时交互的嵌入式系统设备。

我需要满足的要求之一是当我收到消息“A”时 我需要从设备安排一个将在 15 毫秒内发生的事件 将来。此事件将向 UT 发送消息。我们这里称之为“B”。 延迟功能在这里不起作用，因为其他消息不应该被阻止，因为 消息“B”。有时，我还需要每 15 毫秒发送一次消息“B”。

或者也许 Perl 在这里不是一个好的选择。

谢谢

Answer 1

有多种事件驱动的非阻塞框架可用于 Perl。他们中的任何一个都应该能够满足您的需求。以下是帮助您入门的三个示例：POE、AnyEvent 和 IO::异步。也就是说，如果您的时间限制很严格（“每次 15 毫秒”），那么使用 C 等较低级语言编写的实时调度程序可能更合适。

Answer 2

使用正确的工具做正确的事。我强烈建议您不要使用 Perl 来完成此类任务。例如，如果您使用 Erlang 来完成此任务，您只需在纯 Erlang 中执行此操作（只是语言核心，而不是任何模块/库）：

receive
  {Device, "A"} -> spawn(fun() -> send_interval(15, UT, "B") end)
end

send_interval(Interval, Dest, Msg) ->
  receive after Interval ->
      send_interval(Interval, Dest, Dest ! Msg)
  end.

或者使用计时器模块，

receive
  {Device, "A"} -> timer:send_interval(15, UT, "B")
end

这比在 Perl 中实现的更可靠、更简单。这是我在 Perl 日常专业开发七年后可以向您推荐的内容。