Sunday, May 20, 2007

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

사용자로부터 어떤 문자열(문장)을 입력받아야 할 때가 있습니다. 사용자가 키보드로 입력하는 문자열을 얻는 방법입니다. 입력된 문자열이 <STDIN> 이 속에 들어 있기에 이것을 변수에 대입해 주면 간단히 해결됩니다.

scanf 함수처럼, 키보드 입력 받기 예제

파일명: example.pl

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

my $s;

print "아무 문장이나 입력하고 Enter키를 누르세요\n";
$s = <STDIN>; # 키보드에서 문자열 입력 받기
chomp($s); # 입력된 문자열 끝에서 개행문자 제거

if ($s) { # 뭔가가 입력되었으면
print "[$s] 를 입력하셨군요\n";
}
else { # 아무것도 입력하지 않았으면
print "그냥 엔터키만 누르셨군요\n";
}

실행 결과 화면:

D:\Z>example.pl
아무 문장이나 입력하고 Enter키를 누르세요
ABCDEFG
[ABCDEFG] 를 입력하셨군요

D:\Z>example.pl
아무 문장이나 입력하고 Enter키를 누르세요
ryyryryrbsf
[ryyryryrbsf] 를 입력하셨군요

D:\Z>example.pl
아무 문장이나 입력하고 Enter키를 누르세요

그냥 엔터키만 누르셨군요

D:\Z>