Perl ithreads：做一些數學而不是睡覺

Question

我使用perl ithreads和事情工作正常，除非我決定讓線程睡覺。

可以說我的例程thread_job作爲一個條目傳遞給幾個線程以開始同時運行。

thread_job() 
{ 
... 
sleep 2; 

#do other stuff here 

} 

如果我沒有睡眠，我沒有問題與運行的線程，他們做他們的任務很好。如果我添加睡眠，我的腳本會掛起。如果有幫助，我正在使用Windows命令提示符運行此操作。

因爲我確實需要睡覺，我猜測在我當前的設置中使用這個睡眠有一個問題，我打算讓線程做一些事情，而不是睡覺。有沒有這樣的數學運算，我可以執行？

Answer 1

嘗試使用Win32::Sleep代替。 （請注意，它需要毫秒作爲參數，而不是秒。）

Answer 2

調用sleep()會阻塞整個進程（即所有線程）。

您可以通過調用select()來阻止單個線程。做這樣的事情：

thread_job() { 
... 
$delay = 2; 
select(undef, undef, undef, $delay); 
... 
}