[Perl] Loop 탈출기

Perl을 사용해 코드를 짜다보면 Loop 중간에서 Loop를 빠져나와야 하는 경우가 생긴다. C, C++, Java에서의 break문과 같이 말이다.

오늘 코드를 짜는 가운데 이런 break문이 안되는일이 발생했다. 바로 Perl에서는 break문이 없기 때문에다.
break자체가 없는게 아니라 Loop를 중단하는 명령어 즉, 키워드가 break가 아닌 last라는 것이다.

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

my $stop = 0;

while (1) {
    print "< 무한루프: while로 구현 >\n";

    #########################################
    # 이 부분이 없으면, 영원한 무한루프가 됨
    $stop++;
    last if ($stop >= 10);
    #########################################
}

위와 같이 작업해 주면된다. 마지막 last부분은 아래와 같은 문법을 사용해도 무관하다.

if($stop >= 10) { last; }

:: 그럼 오늘하루 즐겁고 행복한 하루 되세요! ::