C++ Perl 中的 getch() ？

Question

在c++中，有一个函数，getch()， 它返回 您按下的键的变量 - 就像 Enter 一样 13. 我怎样才能在 Perl 中做到这一点？

Answer 1

您可以使用 Term::ReadKey。

Answer 2

简而言之：

$x = ord(getc);

详细：

$c = getc(STDIN);
$x = ord($c);

来自 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";