[perl] <STDIN> 입력시 여러줄 입력 받기

PERL로 작업을 하다보면 가끔 한줄만 입력 받는 것이 아닌 여러줄을 입력 받아야 할 때가 있습니다. 이럴 때면 헉 그런 방법도 있었나? 하게 되시죠 그런데 그런 방법이 있어요.

그냥 $input = <STDIN>이라고 해서 입력을 받으면 딴 한줄 받죠 그런데 여러줄을 입력 받으려면 좀 힘들어요.

@input = <STDIN>이라고 $을 @로 바꾸어주면 되거든요. ^^
입력을 마칠때는 CTRL+D키를 눌러주면 되요. 프로그램이 완전 종료되는 건 아니니까 안심하고 치세요.

예제 프로그램을 볼까요?

#!/usr/bin/perl
use strict;
use warnings;
print "CTRL+D to finish\n";
my @input = <STDIN>;
print "Result : \n";
print "@input";

결과

간단하죠 ^^
간단하게 생각들을 정리하는 프로그램을 펄로 만들어 볼까하다가. 여러줄 입력 받는 것에서 막혀서 구글링으로 해결했습니다. 프로그래밍은 이런 조그만 팁들을 알아가는 재미가 있는 것 같아요.

자 이제 새롭게 알게 되신걸 어디에 적용해 보시겟습니까?