perl 检查等待输入

[perl]代码库

#-----------------------------
use Term::ReadKey;

ReadMode ( 'cbreak' );

if ( defined ( $char = ReadKey ( -1 ) ) )
{
# input was waiting and it was $char
}
else
{
# no input was waiting
}

ReadMode ( 'normal' );
# restore normal tty settings
#-----------------------------