Perl：睡眠x秒除非按鍵

Question

perl有沒有辦法讓程序在特定的時間內休眠一段時間，除非用戶按下一個鍵？以下是我的代碼：

use Term::ReadKey; 
ReadMode 4; 
while (not defined ($key = ReadKey(-1))) { 
    sleep(50); 
} 
print "Get key $key\n"; 
ReadMode 0; 

Answer 1

我找到了我的解決方案。這裏是一個基本的答案

use Term::ReadKey; 
ReadMode 4; 
while(1) { 
    my $key = ReadKey 50; #Sleep for 50 
    if(defined $key) { 
     print "Pressed $key\n"; 
    } else { 
     print "Timed out\n"; 
    } 
} 
ReadMode 0;