In c++, there is a functio, getch(), which returns the variable of the key you pressed - like enter would be 13. How could I do this in perl?
+3
A:
in short:
$x = ord(getc);
detailed:
$c = getc(STDIN);
$x = ord($c);
from perldoc -f getc
:
"However, it cannot be used by itself to fetch single
characters without waiting for the user to hit enter.
For that, try something more like":
1. if ($BSD_STYLE) {
2. system "stty cbreak </dev/tty >/dev/tty 2>&1";
3. }
4. else {
5. system "stty", '-icanon', 'eol', "\001";
6. }
7.
8. $key = getc(STDIN);
9.
10. if ($BSD_STYLE) {
11. system "stty -cbreak </dev/tty >/dev/tty 2>&1";
12. }
13. else {
14. system 'stty', 'icanon', 'eol', '^@'; # ASCII NUL
15. }
16. print "\n";
oraz
2010-06-07 08:38:28
Instead, use Term::ReadKey!
tsee
2010-06-07 12:24:50