'Perl'에 해당되는 글 2건
2009. 10. 1. 08:43
Perl을 사용해 코드를 짜다보면 Loop 중간에서 Loop를 빠져나와야 하는 경우가 생긴다. C, C++, Java에서의 break문과 같이 말이다.
오늘 코드를 짜는 가운데 이런 break문이 안되는일이 발생했다. 바로 Perl에서는 break문이 없기 때문에다.
break자체가 없는게 아니라 Loop를 중단하는 명령어 즉, 키워드가 break가 아닌 last라는 것이다.
위와 같이 작업해 주면된다. 마지막 last부분은 아래와 같은 문법을 사용해도 무관하다.
오늘 코드를 짜는 가운데 이런 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);
#########################################
}
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 앞쪽에는 공백이 있어서는 안된다.!
간단하지만 그동안 모르고 있어서 정리해본다.
추가적으로 __END__를 사용하면 __END__이후의 모든 라인이 주석처리된다. 즉 Perl은 __END__를 만나면 논리적으로 Perl script의 끝으로 간주한다.
한라인을 주석처리하기 위해서는 일반적으로 샾(#)을 사용해 주석 처리할 수 있다. 그럼 /*..*/와 같이 여러 줄을 주석처리 하기위해서는..?
Perl에서의 블록 코맨트(Block Comments)는 =pod와 =cut를 사용한다. =pod 앞쪽에는 공백이 있어서는 안된다.!
=pod
if(...)
{}
=cut
if(...)
{}
=cut
간단하지만 그동안 모르고 있어서 정리해본다.
추가적으로 __END__를 사용하면 __END__이후의 모든 라인이 주석처리된다. 즉 Perl은 __END__를 만나면 논리적으로 Perl script의 끝으로 간주한다.
'ººº::Development™:: > ::Perl/Python™::' 카테고리의 다른 글
| [Perl] Loop 탈출기 (0) | 2009.10.01 |
|---|
