컴퓨터 엑셀 워드 포토숍 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Previous Post 디카(DSLR)로, 텔레비전 화면 찍기, TV 브라운관 촬영법; How to Shoot T...3M 귀마개 좋은 것 구매기, 실물 사진; 쓰리엠 3M 1100 Ear Plug 29dB디카, 풍경 사진 촬영용으로 좋은 단렌즈(단초점 렌즈)는; Landscape LensPHP CLI 예제] 도스 DIR / ls 명령 구현 소스; 파일 목록(File List)...C언어] 파일명 변경, 디렉토리명 바꾸기; 리네임 함수; File Dir RenamePerl 펄] 파일명 변경, 디렉토리명 바꾸기; 리네임 함수; File Dir Rename...Perl 펄] 디카 메타 정보를, JPG, RAW (NEF) 파일명으로 변경 유틸리티; E...C언어] 중첩 for문, 겹쳐진 for루프 예제 소스; Nested 'for' Loop니콘 정품 EN-EL9 배터리(리튬 이온 충전지) 취급 설명서 요약; Nikon Batte...불필요한 드라이브 제거하는 법, 멀티 메모리 리더기 사용시; Remove USB Drive...

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

Saturday, May 19, 2007

아래 예제의 getAkey 서브루틴을 사용하면, C언어의 getch 함수처럼 사용자로부터 글자(알파벳) 한 자를 입력받되, 엔터키를 치지 않아도 되기에 편리합니다.

"Term::ReadKey" 라는 기본 모듈을 로딩해 주어야 합니다.

입력한 키가 화면에 출력되지 않게 하려면 print $key; 라는 줄을 삭제하면 됩니다.

대소문자 구분하여 입력받으려면 return lc($key); 를 return $key; 로 고치면 됩니다.

사용자 입력, 한 글자만 받기 예제


파일명: example.pl
#!/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); # 소문자로 변환한 후 반환
}



실행 결과 화면:
D:\Z>example.pl
아무키나 누르세요.
y
[y] 키를 누르셨군요.

D:\Z>example.pl
아무키나 누르세요.
Y
[y] 키를 누르셨군요.

D:\Z>example.pl
아무키나 누르세요.
N
[n] 키를 누르셨군요.

D:\Z>example.pl
아무키나 누르세요.
n
[n] 키를 누르셨군요.

D:\Z>example.pl
아무키나 누르세요.
7
[7] 키를 누르셨군요.

D:\Z>



▶▶ Perl 펄] 사용자 문자열 입력 받기; 키보드 문장 입력; Input STDIN

0 Comments:

Post a Comment

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Categories
Previous Posts
Monthly Archives
Top