<div id="readability-page-1" class="page"><div>
  <main>
    <h3 id="for-반복문">FOR 반복문</h3>
<hr>
<pre><code>#!/usr/bin/perl

foreach $rock (qw/ bedrock slate lava /) {
    print "one rock is $rock.\n";
}
</code></pre><ul>
<li>
<p>펄에서는 반복문을 위와 같이 사용한다.</p>
</li>
<li>
<p>특이한 점은 <code>$rock</code>에 들어가는 값이 복사본이 아니라, 리스트의 원본이 들어간다는 점이다.</p>
</li>
<li>
<p>만약에 <code>$rocks</code>를 변경하면 원본 리스트가 변경된다.</p>
</li>
</ul>
<pre><code>#!/usr/bin/perl

@rocks = qw/ bedrock slate lava /;

foreach $rock (@rocks) {
    $rock = "\t$rock";
    $rock .= "\n";
}
print "The rocks are:\n", @rocks;
</code></pre><ul>
<li>
<p>따라서 이렇게 작성한다면, 원본 배열과 다른 결과가 나올 것이다.</p>
</li>
<li>
<p>또 한가지 특이한 점은, 어떤 값이 들어있는 변수를 반복문의 컨트롤 변수 (리스트의 값이 들어가는 변수)로 사용한다면 반복문에서는 리스트의 값이 하나씩 대입되고 반복문이 끝나면 반복문이 시작하기 전의 값으로 복원되어 있다.</p>
</li>
</ul>
<pre><code>#!/usr/bin/perl

$rock = 'shale';

@rocks = qw" bedrock slate lava ";

foreach $rock (@rocks) {
  print "$rock\n";
}

print "rock is still $rock\n"; # 'rocks is still shale'
</code></pre><ul>
<li>따라서, 반복문에서 사용하는 컨트롤 변수를 위에서 사용하고 있는지 걱정할 필요가 없다.</li>
</ul>
<h3 id="_-변수">$_ 변수</h3>
<hr>
<ul>
<li><code>foreach</code> 문에서, 컨트롤 변수를 생략했다면, 자동으로 <code>$_</code>라는 공간에 들어가게 된다.</li>
</ul>
<pre><code>#!/usr/bin/perl

foreach (1..10) {
  print "I can count to $_ !\n";
}
</code></pre><ul>
<li>그리고 <code>$_</code> 변수에 값을 대입하고 나서, <code>print</code>를 하게 되면 이전에 대입한 값이 들어가게 된다.</li>
</ul>
<pre><code>#!/usr/bin/perl

foreach (1..10) {
  print "I can count to $_ !\n";
}

$_ = "Yabba dabba doo\n";
print; # 'Yadda badda doo'
</code></pre><h3 id="reverse-연산자">reverse 연산자</h3>
<hr>
<pre><code>#!/usr/bin/perl

@fred = 6..10;
print "@fred\n";
@barney = reverse(@fred);
print "@fred\n";
@wilma = reverse 6..10;
print "@wilma\n";
@fred = reverse @fred;
print "@fred\n";

</code></pre><ul>
<li>
<p><code>reverse</code> 연산자는 리스트의 값을 거꾸로 변환해서 반환한다.</p>
</li>
<li>
<p>주의할 점은 그저 거꾸로 뒤집은 값을 반환할 뿐이지, 원본 값을 변경하지는 않는다는 점이다.</p>
</li>
</ul>
<h3 id="sort-연산자">sort 연산자</h3>
<hr>
<pre><code>#!/usr/bin/perl

@rocks = qw/ bedrock slate rubble granite /;
print "@rocks\n"; # bedrock slate rubble granite

@sorted = sort(@rocks);
print "@sorted\n"; # bedrock granite rubble slate
@back = reverse sort @rocks;
print "@back\n"; # slate rubble granite bedrock
@rocks = sort @rocks;
print "@rocks\n"; # bedrock granite rubble slate
@numbers = sort 97..102; # 100 101 102 97 98 99
print "@numbers\n";

</code></pre><ul>
<li>
<p>이를 실행해보면 마지막 결과가 예상과 다르게 나오는데 그 이유는 문자열로 취급하기 때문이다.</p>
</li>
<li>
<p>그리고 <code>reverse</code> 연산자와 마찬가지로, 정렬한 리스트를 반환하기 때문에 원본은 변경되지 않는다.</p>
</li>
</ul>
<h3 id="each-연산자">each 연산자</h3>
<hr>
<pre><code>#!/usr/bin/perl

@rocks = qw/ bedrock slate rubble granite /;
while (($index, $value) = each @rocks) {
  print "$index: $value\n";
}

# 결과
0: bedrock
1: slate
2: rubble
3: granite
</code></pre><ul>
<li>
<p><code>each</code> 연산자는 인덱스와 리스트의 값을 동시에 반환한다.</p>
</li>
<li>
<p>만약 파이썬을 알고 있다면, <code>enumerate</code> 를 사용한 것과 같은 결과를 얻을 수 있다.</p>
</li>
</ul>
<h3 id="스칼라-값과-리스트-값은-문맥에-따라서-달라진다">스칼라 값과 리스트 값은 문맥에 따라서 달라진다</h3>
<hr>
<ul>
<li>
<p>펄은 특이하게 문맥에 따라서 값이 다르게 처리 된다.</p>
</li>
<li>
<p>이것은 마치 자연어와 같은데, 자연어도 문맥에 따라서 같은 단어임에도 불구하고 다르게 사용될 수 있다. 펄도 그렇다.</p>
</li>
</ul>
<pre><code>@people = qw (fred barney betty);
@sorted = sort @people; # list context: barney, betty, fred
$number = 42 + @people; # 42 + 3 = 45
</code></pre><ul>
<li>
<p>따라서 리스트를 생산하는 연산의 경우 리스트에서만 사용될 것으로 예상이 되며, 스칼라 값에 사용할 경우에는 예상하기 힘든 값이 나올 수도 있다.</p>
</li>
<li>
<p>리스트를 만드는 연산을 스칼라 문맥에서 사용할 경우에는 문서를 참조하는 것이 낫다.</p>
</li>
</ul>
<pre><code>/usr/bin/perl

@backwards = reverse qw/ yadda dabba doo/;
print "@backwards\n";
$backwards = reverse qw/ yabba dabba doo /;
print "$backwards\n";

== result ==
doo dabba yadda
oodabbadabbay
</code></pre><ul>
<li>일반적인 경우 아래와 같이 생각하면 된다.</li>
</ul>
<pre><code>$fred = something; # 스칼라
@pebbles = something; # 리스트
($wilma, $betty) = something; # 리스트
($dino) = something # 리스트
</code></pre><ul>
<li>
<p>마지막의 경우 스칼라라고 생각 할 수도 있지만, 리스트인 것을 주의해서 봐야한다.</p>
</li>
<li>
<p>괄호가 리스트라는 것을 명확하게 나타내고 있다.</p>
</li>
<li>
<p>리스트에 스칼라를 대입해도 리스트이고, 리스트 값을 대입해도 리스트이다.</p>
</li>
<li>
<p>리스트 값에 스칼라 변수를 대입하면 자동으로 리스트 값으로 변환된다.</p>
</li>
</ul>
<pre><code>@fred = 6 * 7 # list (42)
@barney = "hello" . ' ' . "world";

@wilma = undef # list (undef)
@betty = (  ); # empty array
</code></pre><ul>
<li>
<p>또한, <code>undef</code> 값은 스칼라 갑이며 빈 리스트를 만들고 싶다면, 빈 괄호를 사용하여 만드는 것이 더 올바른 것을 확인할 수 있다.</p>
</li>
<li>
<p>만약 강제로 스칼라 값을 취하고 싶다면 <code>scalar</code> 라는 함수를 사용하면 된다.</p>
</li>
</ul>
<pre><code>!/usr/bin/perl

@rocks = qw( talc quartz jade obsidian );

print "How many rocks do you have?\n";
print "I have ", @rocks, " rocks!\n";
print "I hvae ", scalar @rocks, " rocks!\n";

=== result ===
How many rocks do you have?
I have talcquartzjadeobsidian rocks!
I hvae 4 rocks!
</code></pre>
<hr>
<ul>
<li>
<p>대표적으로 스칼라 값과 리스트 값에 따라서 동작이 달라지는 연산이 바로 <code>&lt;STDIN&gt;</code>이다.</p>
</li>
<li>
<p>스칼라 값으로 <code>&lt;STDIN&gt;</code> 을 입력받으면 한 단어만 입력받게 된다.</p>
</li>
<li>
<p>리스트 값에 <code>&lt;STDIN&gt;</code> 으로 사용자 입력값을 받으면, 더 이상 남아있는 값이 없을 때까지 입력을 받는다. 모두 입력 받았다는 것을 나타내려면 CTRL + D를 누르면 모두 입력 했다는 것을 나타낸다.</p>
</li>
<li>
<p>보통 개행 문자 (\n)를 <code>chomp()</code>를 사용하여 제거한 값을 받는다.</p>
</li>
</ul>
<pre><code>@lines = &lt;STDIN&gt;;
chomp(@lines);
</code></pre><h3 id="참고-문헌">참고 문헌</h3>
<ul>
<li><a href="https://www.amazon.com/Learning-Perl-Randal-L-Schwartz/dp/1449303587">Learning Perl, 7th Edition</a></li>
</ul>

    <a href="../../../../"> &gt;&gt; Home</a>
  </main>
</div></div>

Home on 개발자 이동욱

Lee Dong Wook

FOR 반복문
#!/usr/bin/perl
foreach $rock (qw/ bedrock slate lava /) {
    print "one rock is $rock.\n";
}
펄에서는 반복문을 위와 같이 사용한다.
특이한 점은 $rock에 들어가는 값이 복사본이 아니라, 리스트의 원본이 들어간다는 점이다.
만약에 $rocks를 변경하면 원본 리스트가 변경된다.
#!/usr/bin/perl
@rocks = qw/ bedrock slate lava /;
foreach $rock (@rocks) {
    $rock = "\t$rock";
    $rock .= "\n";
}
print "The rocks are:\n", @rocks;
따라서 이렇게 작성한다면, 원본 배열과 다른 결과가 나올 것이다.
또 한가지 특이한 점은, 어떤 값이 들어있는 변수를 반복문의 컨트롤 변수 (리스트의 값이 들어가는 변수)로 사용한다면 반복문에서는 리스트의 값이 하나씩 대입되고 반복문이 끝나면 반복문이 시작하기 전의 값으로 복원되어 있다.
#!/usr/bin/perl
$rock = 'shale';
@rocks = qw" bedrock slate lava ";
foreach $rock (@rocks) {
  print "$rock\n";
}
print "rock is still $rock\n"; # 'rocks is still shale'
따라서, 반복문에서 사용하는 컨트롤 변수를 위에서 사용하고 있는지 걱정할 필요가 없다.
$_ 변수
foreach 문에서, 컨트롤 변수를 생략했다면, 자동으로 $_라는 공간에 들어가게 된다.
#!/usr/bin/perl
foreach (1..10) {
  print "I can count to $_ !\n";
}
그리고 $_ 변수에 값을 대입하고 나서, print를 하게 되면 이전에 대입한 값이 들어가게 된다.
#!/usr/bin/perl
foreach (1..10) {
  print "I can count to $_ !\n";
}
$_ = "Yabba dabba doo\n";
print; # 'Yadda badda doo'
reverse 연산자
#!/usr/bin/perl
@fred = 6..10;
print "@fred\n";
@barney = reverse(@fred);
print "@fred\n";
@wilma = reverse 6..10;
print "@wilma\n";
@fred = reverse @fred;
print "@fred\n";
reverse 연산자는 리스트의 값을 거꾸로 변환해서 반환한다.
주의할 점은 그저 거꾸로 뒤집은 값을 반환할 뿐이지, 원본 값을 변경하지는 않는다는 점이다.
sort 연산자
#!/usr/bin/perl
@rocks = qw/ bedrock slate rubble granite /;
print "@rocks\n"; # bedrock slate rubble granite
@sorted = sort(@rocks);
print "@sorted\n"; # bedrock granite rubble slate
@back = reverse sort @rocks;
print "@back\n"; # slate rubble granite bedrock
@rocks = sort @rocks;
print "@rocks\n"; # bedrock granite rubble slate
@numbers = sort 97..102; # 100 101 102 97 98 99
print "@numbers\n";
이를 실행해보면 마지막 결과가 예상과 다르게 나오는데 그 이유는 문자열로 취급하기 때문이다.
그리고 reverse 연산자와 마찬가지로, 정렬한 리스트를 반환하기 때문에 원본은 변경되지 않는다.
each 연산자
#!/usr/bin/perl
@rocks = qw/ bedrock slate rubble granite /;
while (($index, $value) = each @rocks) {
  print "$index: $value\n";
}
# 결과
0: bedrock
1: slate
2: rubble
3: granite
each 연산자는 인덱스와 리스트의 값을 동시에 반환한다.
만약 파이썬을 알고 있다면, enumerate 를 사용한 것과 같은 결과를 얻을 수 있다.
스칼라 값과 리스트 값은 문맥에 따라서 달라진다
펄은 특이하게 문맥에 따라서 값이 다르게 처리 된다.
이것은 마치 자연어와 같은데, 자연어도 문맥에 따라서 같은 단어임에도 불구하고 다르게 사용될 수 있다. 펄도 그렇다.
@people = qw (fred barney betty);
@sorted = sort @people; # list context: barney, betty, fred
$number = 42 + @people; # 42 + 3 = 45
따라서 리스트를 생산하는 연산의 경우 리스트에서만 사용될 것으로 예상이 되며, 스칼라 값에 사용할 경우에는 예상하기 힘든 값이 나올 수도 있다.
리스트를 만드는 연산을 스칼라 문맥에서 사용할 경우에는 문서를 참조하는 것이 낫다.
/usr/bin/perl
@backwards = reverse qw/ yadda dabba doo/;
print "@backwards\n";
$backwards = reverse qw/ yabba dabba doo /;
print "$backwards\n";
== result ==
doo dabba yadda
oodabbadabbay
일반적인 경우 아래와 같이 생각하면 된다.
$fred = something; # 스칼라
@pebbles = something; # 리스트
($wilma, $betty) = something; # 리스트
($dino) = something # 리스트
마지막의 경우 스칼라라고 생각 할 수도 있지만, 리스트인 것을 주의해서 봐야한다.
괄호가 리스트라는 것을 명확하게 나타내고 있다.
리스트에 스칼라를 대입해도 리스트이고, 리스트 값을 대입해도 리스트이다.
리스트 값에 스칼라 변수를 대입하면 자동으로 리스트 값으로 변환된다.
@fred = 6 * 7 # list (42)
@barney = "hello" . ' ' . "world";
@wilma = undef # list (undef)
@betty = (  ); # empty array
또한, undef 값은 스칼라 갑이며 빈 리스트를 만들고 싶다면, 빈 괄호를 사용하여 만드는 것이 더 올바른 것을 확인할 수 있다.
만약 강제로 스칼라 값을 취하고 싶다면 scalar 라는 함수를 사용하면 된다.
!/usr/bin/perl
@rocks = qw( talc quartz jade obsidian );
print "How many rocks do you have?\n";
print "I have ", @rocks, " rocks!\n";
print "I hvae ", scalar @rocks, " rocks!\n";
=== result ===
How many rocks do you have?
I have talcquartzjadeobsidian rocks!
I hvae 4 rocks!
대표적으로 스칼라 값과 리스트 값에 따라서 동작이 달라지는 연산이 바로 <STDIN>이다.
스칼라 값으로 <STDIN> 을 입력받으면 한 단어만 입력받게 된다.
리스트 값에 <STDIN> 으로 사용자 입력값을 받으면, 더 이상 남아있는 값이 없을 때까지 입력을 받는다. 모두 입력 받았다는 것을 나타내려면 CTRL + D를 누르면 모두 입력 했다는 것을 나타낸다.
보통 개행 문자 (\n)를 chomp()를 사용하여 제거한 값을 받는다.
@lines = <STDIN>;
chomp(@lines);
참고 문헌
Learning Perl, 7th Edition

LEARING PERL - 4번째 학습

댓글