lib/hotkey.pm

   1 # HotKey.pm
   2 package hotkey;
   3
   4 @ISA = qw(Exporter);
   5 @EXPORT = qw(cbreak cooked readkey);
   6
   7 use strict;
   8 use POSIX qw(:termios_h);
   9 my ($term, $oterm, $echo, $noecho, $fd_stdin);
  10
  11 $fd_stdin = fileno(STDIN);
  12 $term     = POSIX::Termios->new();
  13 $term->getattr($fd_stdin);
  14 $oterm     = $term->getlflag();
  15
  16 $echo     = ECHO | ECHOK | ICANON;
  17 $noecho   = $oterm & ~$echo;
  18
  19 sub cbreak {
  20     $term->setlflag($noecho);  # ok, so i don't want echo either
  21     $term->setcc(VMIN, 0);
  22     $term->setcc(VTIME, 1);
  23     $term->setattr($fd_stdin, TCSANOW);
  24 }
  25
  26 sub cooked {
  27     $term->setlflag($oterm);
  28     $term->setcc(VTIME, 0);
  29     $term->setattr($fd_stdin, TCSANOW);
  30 }
  31
  32 sub readkey {
  33     my $key = '';
  34     cbreak();
  35     sysread(STDIN, $key, 1);
  36     cooked();
  37     return $key;
  38 }
  39
  40 END { cooked() }
  41
  42 1;
  43