Perl 펄] getch 함수; 키보드에서 영문 1글자 입력 받기; Enter키 칠 필요 없이

#!/usr/bin/perl
use strict; use warnings;

use Term::ReadKey;

  print "아무키나 누르세요.\n";

  my $k = getAkey();

  print "\n[$k] 키를 누르셨군요.\n";




# 키보드에서 영문 딱 1글자만 입력받는 함수 (Enter키 칠 필요 없음)
sub getAkey {
  ReadMode 'cbreak';
  my $key = ReadKey(0);
  print $key; # echo 가 안되어서 인위적으로 출력
  ReadMode 'normal';

  return lc($key); # 소문자로 변환한 후 반환
}