note
flexvault
<p>Welcome <a href="http://www.perlmonks.org/?node_id=983189">alexx_sh</a>,</p>
<p>I saw your post earlier, and I waited for some more knowledgeable Monk to tell you how to use curses. I haven't had too much luck using Perl curses, but I do have an editor I wrote several years ago that required handling function keys, so this code may be overkill for what you need. This works on AIX and most *nix systems, so test, test, test...
<code>
BEGIN
{
use POSIX qw(:termios_h);
use sigtrap qw( INT ); $Signal = 0;
our $config = qx/stty -g/;
my ($term, $oterm, $echo, $noecho, $fd_stdin, $iterm, $raw, $allraw);
$fd_stdin = fileno(STDIN);
$term = POSIX::Termios->new();
$term->getattr($fd_stdin);
$oterm = $term->getlflag();
$echo = ECHO | ECHOK | ICANON ;
$noecho = $oterm & ~$echo;
$iterm = $term->getiflag();
$raw = ICRNL;
$allraw = $iterm & ~$raw;
$SIG{INT} = \&TST_INT;
sub TST_INT
{ our $Signal++;
return;
}
sub cbreak
{ my $max = shift;
$term->setlflag($noecho);
$term->setiflag($allraw);
$term->setcc(VMIN, 0);
$term->setcc(VTIME, $max);
$term->setattr($fd_stdin, TCSANOW);
}
sub cooked
{ $term->setlflag($oterm);
$term->setiflag($iterm);
$term->setcc(VTIME, 1);
$term->setattr($fd_stdin, TCSANOW);
}
sub getkey
{ my $tm = shift; $key = ""; $chr = "";
cbreak($tm);
sysread(STDIN, $chr, 1);
$term->setcc(VTIME, 0);
$term->setattr($fd_stdin, TCSANOW);
GETLOOP:
#$# Need to test for multiple character Carr Return
if ( $er == 22 ) { return(""); }
if ( $chr ne "" )
{ $key .= $chr;
if ( ( length($key) == 2 )&&( ord($key) < 32 ) )
{ if ( substr($key,0,1) eq substr($key,1,1) ) { chop($key); }
}
if ( ( length($key) > 1 )&&( exists $CRTinput{$key} ) )
{ if ( $Debug >= 3 ) { PEMSG(3," GETKEY1:\t|$key|"); }
return $key;
}
if ( $chr ne $TERMCR ) { sysread(STDIN, $chr, 1); goto GETLOOP; }
}
if ( ( $Debug >= 3 )&&( length($key) > 1 ) ) { PEMSG(3," GETKEY2:\t|$key|"); }
# cooked();
return $key;
}
sub clrkey
{ my $char = "";
$term->setlflag($noecho);
$term->setiflag($allraw);
$term->setcc(VMIN, 0);
$term->setcc(VTIME, 0);
$term->setattr($fd_stdin, TCSANOW);
sysread(STDIN, $char, 64);
}
}
END
{ cooked();
qx/stty $config/; print "\n\n";
$|=1;
}
</code>
</p><p>Using the code in the BEGIN and END blocks allows the terminal to be reset to how we found at exit.</p>
<p>You get the character from the console/terminal/XTerminal by calling 'getkey();'
like this:
<code>
$key = getkey(25);
</code>
<p>Hope this helps!
</p>
<p>Good Luck!</p>
<div class="pmsig"><div class="pmsig-733061">
<p><b>"Well done is better than well said." - Benjamin Franklin</b></p>
</div></div>
996801
996801