분류 전체보기 (199)
ººº::Development™:: (66)
ººº::Learning™:: (31)
ººº::Information™:: (37)
ººº::Note™:: (11)
ººº::Photo™:: (50)
ººº::zEtc™:: (3)
rss

믹시
tistory 티스토리 가입하기!
2009. 10. 1. 08:43
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; }

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

'ººº::Development™:: > ::Perl/Python™::' 카테고리의 다른 글

[Perl] Perl 주석  (0) 2009.09.16