perl6线程读取干扰

Question

我需要从同一个套接字或者从$*IN中读取多个线程；然而，似乎有错误，因为每个都试图从相同的来源读取(我认为)。解决这个问题的最好方法是什么？谢谢！！

my $x = start { prompt("I am X: Enter x: "); }
my $y = start { prompt("I am Y: Enter y: "); }

await $x, $y;
say $x;
say $y;

以下是错误：

I am X: Enter x: I am Y: Enter y: Tried to get the result of a broken Promise
  in block <unit> at zz.pl line 4

Original exception:
    Tried to read() from an IO handle outside its originating thread
      in block  at zz.pl line 1

谢谢！！

Answer 1

在Rakudo的最新开发快照中，您的代码实际上工作正常，没有在我的系统上抛出任何异常...< br >但是，它仍然立即要求两个值(< code > I is X:Enter X:I is Y:Enter Y:)。

要让第二个< code >提示符等待第一个提示符完成，您可以使用< code>Lock:

#--- Main code ---

my $x = start { synchronized-prompt "I am X: Enter x: "; }
my $y = start { synchronized-prompt "I am Y: Enter y: "; }

await $x, $y;
say $x.result;
say $y.result;


#--- Helper routines ---

BEGIN my $prompt-lock = Lock.new;

sub synchronized-prompt ($message) {
    $prompt-lock.protect: { prompt $message; }
}

棘手的部分是，在线程开始并发使用它之前，需要初始化锁。这就是为什么我在程序的主线中的同步提示子例程之外调用 Lock.new 的原因。我不是在程序的顶部执行此操作，而是使用 BEGIN 相位器，以便可以将其放在子例程旁边。