Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Системное программирование > Linux работа с клавиатурой


Автор: perlbot 17.8.2011, 06:01
Подскажите пожалуйста каким образом я могу получить состояние клавиш клавиатуры в linux, на подобии WinAPI модуля GetKeyState:

Код

our $GetKeyState = new Win32::API('user32', 'GetKeyState', 'I', 'I');

sub IsKeyDown {
    $_ = $GetKeyState->Call($GetKeyCode{uc(shift)});
    return !($_ > -1 and $_ < 5);
}


с Term::ReadKey так и не смог подружиться - не хочет она что-то асинхронно читать клавиатуру

З.Ы: слышал где-то про /dev/input но не осилил

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)