input timeout

[Milan Sorm]

Wed, Feb 23, 2000 ve 02:11:19AM +0100 Vasek Vobornik napsal:
# 
# Existuje v Perlu moznost pri vstupu ze <STDIN> po vyprseni zadaneho timeoutu
# pokracoval ve scriptu dale? Neco jako:
# 
# $result=getlinetime(STDIN, $key, 20);
# if ($result) {
#     print "zadano: $key";
# }
# else {
#     print "vyprsel timeout 20 sec.";
# }
# 
# Verim, ze urcite ano, jen nevim jak.
# Predem dekuji za kazdou radu.

No bud to umi Term::* (tusim ReadKey, ReadLine)

Nebo bych to delal tak, ze bych cteni delal select nad STDIN s timeoutem.

--milan