perl6約束の特定のアイデンティティーを取得する方法は？

Question

約束事で動作している3台のエコーサーバーをコーディングしようとしていますが、どのような約束がエコーをしているのかを知りたいと思います。それを行う方法はありますか？

no strict; 

for 0 .. 2 -> $index { 
    @result[$index] = start { 
     $myID = $index; 
     say "======> $myID\n"; 

     my $rsSocket = IO::Socket::INET.new: 
      localhost => 'localhost', 
      localport => 1234 + $index, 
      listen => 1; 

     while $rsSocket.accept -> $rsConnection { 
      say "Promise $myID accepted connection"; 
      while $rsConnection.recv -> $stuff { 
       say "promise $myID Echoing $stuff"; 
       $rsConnection.print($stuff); 
      } 
      $rsConnection.close; 
     } 
    } 
} 

await @result; 

エコーサーバーは正常に実行されます。 "nc"でテストした。

問題は$myIDとなります。約束が作成された後に2となり、現在のエコーを行っている約束を知る方法がありません。すべての約束によって、$myIDが使用されているようです。個々の約束に固有の変数を作成する方法はありますか？

Answer 1

$myIDはまったく必要ありません。ループブロックにスコープされているので、約束の中で$indexを使用することができます。ここでは（上の厳格な..with）作業の変更があります：

my @result = do for 0 .. 2 -> $index { 
    start { 
     say "======> $index\n"; 

     my $rsSocket = IO::Socket::INET.new: 
      localhost => 'localhost', 
      localport => 1234 + $index, 
      listen => 1; 

     while $rsSocket.accept -> $rsConnection { 
      say "Promise $index accepted connection"; 
      while $rsConnection.recv -> $stuff { 
       say "promise $index Echoing $stuff"; 
       $rsConnection.print($stuff); 
      } 
      $rsConnection.close; 
     } 
    } 
} 

await @result; 

私はno strictを使用すると、非常に不必要と思われることを指摘する衝動を感じるの注意しながら。このような奇妙なスコープの問題をあなたに残すだけでなく、あなたの例では基本的に何も得られません。

未修正のコードでstrictを再度有効にし、2つのコンパイルエラーを修正すると、合計4回のキーストロークしか保存されませんでした。

Answer 2

これは、no strictに行くことであなたが「失うもの」の1つです。

必要なものはレキシカルスコープです。 myを使用すると、ブロック（{ ... }）が入力されるたびに異なる変数が与えられます。

あなたが行う場合は、この：

for 0 .. 2 -> $index { 
    @result[$index] = start { 
     my $myID = $index; 

その後$myIDstartブロック、およびそのブロックが、それはそのIDを覚えているだろう呼び出されるたびにローカルになります。したがって、ソケットがデータを受信するたびに正しいIDを取得します。