*perl* my $input = <STDIN> ; 사용시 ()() OK, ()(( fail 관련 질문 드립니다

my $input = <STDIN>;

$ perl t.pl
((()))<엔터>     # 실행 후 키보드로 입력을 하거나
OK
 
$ echo "((())" | perl t.pl    # 파이프로 넘겨주거나
FAIL

$ perl t.pl "((()))"    # 괄호는 쉘에서 특수 문자로 쓰이기 때문에 따옴표로 둘러싸야 함
OK

my $input = $ARGV[0];

my $input = "abcde";
 
# substr 로 특정 위치에서 원하는 갯수의 문자를 읽을 수 있습니다. 위치는 0부터 시작
my $third_character = substr( $input, 2, 1 );   # 'c'
 
# split 으로 스칼라 문자열을 쪼개어 배열로 만들 수 있습니다.
my @chr_array = split //, $input;    # @chr_array = ( 'a', 'b', 'c', 'd', 'e' );

value = 0으로 초기화
 
loop: 한 글자씩 읽으면서
   방금 읽은 게 '(' => value = value + 1
   방금 읽은 게 ')' => value = value - 1
 
   현재 value 가 음수라면 => ( 보다 )가 더 많이 등장했다는 뜻이니 더 볼 것도 없이 FAIL 판정하고 종료
 
loop가 다 끝났을 때 value 가 0이면 OK, 아니면 FAIL