Perl中的多線程程序在窗口上給出意外的結果

Question

我是新來的Perl和嘗試多線程。我期待以下程序創建所有線程，並至少在5秒後打印「創建所有線程」，一旦執行並且所有線程等待輸入值。

use threads; 

my @arr = (1,2,3,4); 
foreach (@arr) { 
    sleep(1); 
    print "\ncreating...\n"; 
    threads->new(\&echo, $_); 
    print "\ncreated\n"; 
} 
print "\ncreated all the threads\n"; 
sleep(200); #wait for the threads to finish 

sub echo { 
    my ($thread) = @_; 
    print "\nthread($thread) Enter the value:\n"; 
    my $value = <>; 
    print "\nthread($thread) Got value= $value\n"; 
} 

但我得到以下outout：

creating... 

created 

thread(1) Enter the value: 

creating... 

似乎其他3個線程尚未創建的，如果我刪除了睡眠（1）我得到有時預期的結果，但與睡眠（1）涉及，甚至等待幾分鐘，我得到了上述結果。我可能錯過了什麼？我認爲這是基本的，但我無法弄清楚。

UPDATE：

同樣的程序在Linux上工作完美無瑕，這可能是針對Windows平臺的具體問題？

UPDATE2：

在同一行以下Java程序的工作就好在同一個盒子：

import java.io.IOException; 


public class MT { 

    public static void main(String[] args)throws Exception { 
     for(int i=0;i<4;i++){ 
      Thread.sleep(2000); 
      new Thread(new Task(i)).start(); 
     } 
     System.out.println("created all the threads"); 
     Thread.sleep(20000); 

    } 

    static class Task implements Runnable{ 

     int i; 
     public Task(int i) { 
      super(); 
      this.i = i; 
     } 
     @Override 
     public void run() { 
      try { 
       System.out.println("Thread:"+i+" Enter value"); 
       int x= System.in.read(); 
       System.out.println(x); 
      } catch (IOException e) { 
       e.printStackTrace(); 
      } 
     } 
    } 
} 

我不知道怎麼的perl上支持多線程的窗口！

Answer 1

你實際上有兩種不同的封閉問題：控制檯上

1. I/O緩衝（感謝迪斯科3暗示這一點）。
2. 線程從標準輸入塊互相讀取（但不是其他線程）。

考慮這個測試程序：

use threads; 
$| = 1; 

my $thr1 = threads->new(\&echo, 1); 
my $thr2 = threads->new(\&print_dots, 2); 
sleep 10; 
my $thr3 = threads->new(\&echo, 3); 

sleep 200; 



sub print_dots { 
    while (1) { 
     print "."; 
     sleep 1; 
    } 
} 

sub echo { 

    my ($thread) = @_; 
    print "\nthread($thread) Enter the value:\n"; 
    sleep 1; 
    my $value = <>; 
    print "\nthread($thread) Got value= $value\n"; 
} 

如果您不要禁用的I/O緩衝（由$|=1;完成），那麼你沒有得到任何點都沒有。如果禁用輸入緩衝，則打印點的線程永遠不會被阻止。但是，從控制檯讀取的第二個線程仍然被第一個線程阻塞。

如果您需要在Windows上使用Perl中的標準輸入進行真正的非阻塞讀取，則有幾種可能的解決方案。 Win32::Console可能是一個很好的開始。 Here is a potentially useful discussion。