Perl/순환문

1. for 순환문

2. foreach 순환문

3. while 순환문

4. until 순환문

5. 순환문 빠져나가기 - next, last, redo

6. do { BLOCK }

1. for 순환문

for (초기화; 조건; 명령 후 취할 행동) {
  명령;
}

for ( 1..100 ) {
  명령;
}

for ( 1..10, " hello ", "world ", "again\n" ) {    # 13 개의 값이 $_ 에 각각 할당
  print;                                           # $_ 가 생략된 것으로 간주
}

2. foreach 순환문

foreach $elem ( 0..$#myArray )
{
  print $myArray[$elem];
}

foreach ( 0..$#myArray )
{
  print $myArray[$_];   # iterator 생략한 경우 $_
}

foreach $aLine (<fileHandler>) {
  print $aLine;
}

3. while 순환문

while ( 조건 ) {
  명령; # 조건이 참인 동안 실행
}

do {
  명령; # 반드시 한 번은 실행
} while ( 조건 );

4. until 순환문

until ( 조건 ) {
  명령; # 조건이 거짓인 동안 실행
}

do {
  명령; # 반드시 한 번은 실행
} until ( 조건 );

5. 순환문 빠져나가기 - next, last, redo

• next - C 의 continue
• last - C 의 break
• redo - next 와 유사하나, "블럭 실행 후 취할 행동" 부분을 실행하지 않는다

6. do { BLOCK }

• do { BLOCK } 형태는 블럭 안의 명령들 중 마지막 명령의 값을 반환함2

• do { BLOCK } while ( 조건 )
• do { BLOCK } until ( 조건 )
• 위 두 가지는 BLOCK 을 한 번 실행한 후, 조건에 따라 반복을 할 것인지 결정한다.

• 그런데... 이 형태는 whlie이나 until과 달리 루프로 간주되지 않아서 next,last,redo를 쓸 수 없다.3
  • do 블록 안 또는 밖에 추가로 블록을 구성해서 next와 last의 효과를 낼 수 있다.4

# next 를 하기 위해서는 중괄호를 이중으로 써서 안쪽에 블록 하나를 다시 만든다.
           do {{
               next if $x == $y;
               # do something here
           }} until $x++ > $z;

# last 를 하기 위해서는 바깥쪽에 블록을 만든다.
           LOOP: {
                   do {
                       last if $x = $y**2;
                       # do something here
                   } while $x++ <= $z;
           }

각주:
1. Learning Perl, Chapter 03
2. do
3. 이럴 땐 좀 펄이 싫어진다...
4. perlsyn