Исходное сообщение
"Перехват клавиатуры" Отправлено михалыч, 21-Май-18 19:37
> Доброго времени суток! > Есть такая штука в перл, как перехват CTRL+C: > $SIG{INT} = \&tsktsk; > sub tsktsk { >   $SIG{INT} = \&tsktsk; >   #Выполняемый код, перед завершением программы >   exit; > } > А как можно сделать подобное, но чтобы перехватывалось нажатие любой клавиши? модули на CPAN http://search.cpan.org/dist/Term-RawInput/ http://search.cpan.org/dist/TermReadKey/ http://search.cpan.org/dist/Term-TermKey/ если система FreeBSD то можно найти в портах /usr/ports/devel/p5-Term-RawInput /usr/ports/devel/p5-Term-ReadKey посмотреть можно здесь => https://stackoverflow.com/questions/32489924/perl-termreadke... порт на TermKey отсутствует, но можно его и самому сделать

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> Доброго времени суток! >> Есть такая штука в перл, как перехват CTRL+C: >> $SIG{INT} = \&tsktsk; >> sub tsktsk { >> $SIG{INT} = \&tsktsk; >> #Выполняемый код, перед завершением программы >> exit; >> } >> А как можно сделать подобное, но чтобы перехватывалось нажатие любой клавиши? > модули на CPAN > http://search.cpan.org/dist/Term-RawInput/ > http://search.cpan.org/dist/TermReadKey/ > http://search.cpan.org/dist/Term-TermKey/ > если система FreeBSD то можно найти в портах > /usr/ports/devel/p5-Term-RawInput > /usr/ports/devel/p5-Term-ReadKey > посмотреть можно здесь => > https://stackoverflow.com/questions/32489924/perl-termreadkey-with-arrow-keys/38581180 > порт на TermKey отсутствует, но можно его и самому сделать
	Введите код, изображенный на картинке: