5. 흐름의 조절  많은 CGI는 대부분 선형적인 프로그램 구조를 가진다. 하지만, Perl은 많은 
제어 명령어를 포함, 여러 조건을 제어 할 수 있으므로 제어 언어라 불린다. 5.1 if 와 while  
   Perl 의 if 문은 C의 if 문과 비슷하다. ☞간단한 예 [root@chongnux perl]# cat if#!/usr/bin/perl$count =
 0 ;$sum = 0; while(1){ $sum += $count; $count += 5;  if($count >51){exit(0);} if(($count% 5)== 0){ print "$count 
는 5의 배수 입니다.";}}                     [root@chongnux perl]# chmod +x if[root@chongnux perl]# ./if
5 는 5의 배수 입니다.10 는 5의 배수 입니다.15 는 5의 배수 입니다.20 는 5의 배수 입니다.25 
는 5의 배수 입니다.30 는 5의 배수 입니다.35 는 5의 배수 입니다.40 는 5의 배수 입니다.45 는 
5의 배수 입니다.50 는 5의 배수 입니다.☞예제로 배우기#!/usr/bin/perl @city = ("A_city", "B_city","C
_city");  # 배열 while(1)  # 무한 반복 명령.. 참이면 계속 실행이 되것지요..{print "Enter_one_City
_(A_,_B_,_C_,Q_is_to_quit)_:_";new_enter:$choice = <STDIN>;    # 표준 입력 <STDIN> 이며 입력 받은 것     
                  # 은 $choice 에 입력됨..chop $choice ;    # 개행 문자를 삭제함...왜 반드시
 개행 문자                  # 를 지워서 입력 시켜야 함.           # chop는 마지막 문제
를 제거하는데 쓰이는 명령어. if($choice eq "A" || $choice eq "a") { print "$city[0] is a wonderful country."
;}elsif($choice eq "B" || $choice eq "b") { print "$city[1] is big.";}elsif($choide eq "C" || $choice eq "c") { print "$
city[2],The City of God, is heaven.";}elsif($chioce eq "Q" || $choice eq "q") { exit(0);}else  { print "You enter a val
id word. Enter new word: " ; goto new enter;}}                                    [root@chongnux perl]
# chmod +x Jogun[root@chongnux perl]# ./Jogun Enter one City (A , B , C ,Q is to quit) : a A_city is a wonderful count
ry. Enter one City (A , B , C ,Q is to quit) : b B_city is big. Enter one City (A , B , C ,Q is to quit) : c C_city,
The City of God,is heaven. Enter one City (A , B , C ,Q is to quit) : d You enter a valid word. Enter new word: a A_c
ity is a wonderful country. Enter one City (A , B , C ,Q is to quit) : q[root@chongnux perl]#           C 언어
와 많이 유사하는 것을 느끼실 겁니다. ☞ while에 관한 이야기   조건이 참이면 계속해서 
반복을 하다가 거짓이 되면 루프를 빠져 나갑니다. 위의 예제를 이용 주소록도 가능하지 
않을까 하는 생각 이 듭니다. 파일 입출력만 된다면 말이지요... 후후 .. 다음은 바로 라인
을 읽어서 조건을 판단하는 예제입니다. #!/usr/bin/perl  while($stdin = <STDIN>){  print $stdin;}혹은 
#!/usr/bin/perlwhile(<STDIN>){  print $_;}은 같은 역할을 한다. 즉 에코의 역할을 한다. perl 에서는 
표준입력에서 읽은 것은 $_로 값을 할당 할 수 있다. 그리고 next ,last 키워드를 가지고 있어
서 루프를 겉너 뛰거나 그 루프를 종료 할 수 있다. 다음은 간단한 모양 출력 스크립트이다
. [root@chongnux perl]# vi mountain#!/usr/bin/perl print "Enter number : ";$input = <STDIN>;chop $input;print "";{ for
($num1 = 1 ;$num1 < $input+1 ;$num1++)     {      for($num2 = 1;$num2 < $num1+1;$num2++)        {         p
rint "*";        }      print "";      } for($num1 = $input ;$num1 > 0;$num1--)     {      for($num2 = $
num1;$num2>0;$num2--)        {         print "*";        }      print "";      }}[root@chongnux perl]#
chmod +x mountain[root@chongnux perl]# ./mountainEnter number : 10 ****************************************************
**********************************************************              ☞ last & nextwhile(1){  $num ++;  if(
$num ==100) {next;}  #$num 이 100이면 반복을 점프한다.   if($num >1000) {last;}   #$num 이 1000이면 루
프를 종료한다.   print "$num";          #번호 하나씩 찍끼...}내일은 더 잼있는 거 도전해볼
 생각유....근데 난 언제 스크리트 멋찌게 짜나..