분류 전체보기 (199)
ººº::Development™:: (66)
::JAVA™:: (9)
::C/C++™:: (6)
::Perl/Python™:: (2)
::WEB™:: (7)
::Media™:: (2)
::Database™:: (8)
::Linux™:: (12)
::zEtc™:: (20)
ººº::Learning™:: (31)
ººº::Information™:: (37)
ººº::Note™:: (11)
ººº::Photo™:: (50)
ººº::zEtc™:: (3)
rss

믹시
tistory 티스토리 가입하기!
'ººº::Development™::/::Perl/Python™::'에 해당되는 글 2건
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


2009. 9. 16. 18:03
참 쉬우면서도 지금까지 왜 생각을 안하고 있었을까?
한라인을 주석처리하기 위해서는 일반적으로 샾(#)을 사용해 주석 처리할 수 있다. 그럼 /*..*/와 같이 여러 줄을 주석처리 하기위해서는..?

Perl에서의 블록 코맨트(Block Comments)는 =pod =cut를 사용한다. =pod 앞쪽에는 공백이 있어서는 안된다.!

=pod
   if(...)
   {}
=cut


간단하지만 그동안 모르고 있어서 정리해본다.

추가적으로 __END__를 사용하면 __END__이후의 모든 라인이 주석처리된다. 즉 Perl은 __END__를 만나면 논리적으로 Perl script의 끝으로 간주한다.

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

[Perl] Loop 탈출기  (0) 2009.10.01


prev"" #1 next