signals - 如何在 Perl 6 中向进程 ID 发送信号？

Question

Perl 6 有方法 accept signals并到 send a signal to a Proc::Async .尽管 [p5-p6 perlfunc] 文档说 kill 的工作方式与 Perl 5 中的非常相似，但事实并非如此，因为您无法向任意进程 ID ( doc issue filed ) 发送信号。我有一个特别想用 Perl 6 编写的程序(为了咯咯笑)，但由于缺乏可靠的 kill 而被迫退回到 Perl 5。 .

缺乏炮击 kill或 tasklist (和 taskkill )，这是我们必须要做的事情吗？在 S29 中有一个杀戮，但显然不在核心文档中。我还没有遇到任何更具哲学倾向的文档，讨论哪些决定会导致各种遗漏。

我知道针对许多系统的虚拟机在涉及操作系统特定的东西时会遇到挑战，但我不知道这是否是我们不能拥有诸如 kill 之类的好东西的原因。 (如果您重新开始，可能更适合命名为 signal ；)和 exec .

Answer 1

我知道您正在寻找语言支持，但是发现这个问题并真正需要解决方案的任何人都可以使用 NativeCall。例如，使用 native kill在 Linux 上(为了理智，重命名为 syskill):

use NativeCall;
# syskill( PID, SIGNAL ) -> 0 if sent, -1 if error, see "man 2 kill"
sub syskill(uint32, int32) returns int32 is native is symbol('kill') {};