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
  • next를 대신할 수 있는 방법은 BLOCK을 다시 중괄호로 둘러싸는 것. 중괄호쌍은 그 자체가 "한 번 실행되는 루프"로 간주되기 때문에4 next 등을 쓸 수 있다. 따라서 last를 만나면 중괄호를 빠져나가고, 이후 조건문을 검사한 후 다시 do { } 안으로 진입하거나 나가거나 할 것이다.
  • last의 효과를 낼 수 있는 방법은 모르겠음.

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