전달된 1개의 인수의 짝수홀수를 조사하여, 홀수라면 [Odd], 짝수라면 [Even]이라고 출력하는 서브루틴을 작성하여, http://seungngil.tistory.com/entry/Perl%ED%99%80%EC%88%98-%EC%A7%9D%EC%88%98-%EA%B5%AC%ED%95%98%EA%B8%B0
의 과제를 그 서브루틴을 사용해도록 변경하여라.
use strict;
use warnings;
my $num;
print "Please enter the number. ";
$num = <STDIN>;
chomp $num;
OddEven ($num);
sub OddEven {
my $num = shift;
for (my $i = 1; $i <= $num; $i++) {
print (($i % 2) == 0 ? "[Even]" : "[Odd]", $i, "\n");
}
}
'Perl' 카테고리의 다른 글
[Perl] hanoi (0) | 2014.12.19 |
---|---|
[Perl] 재귀함수 (0) | 2014.12.19 |
[Perl] Subroutine parameter (0) | 2014.12.19 |
[Perl] Subroutine (0) | 2014.12.19 |
[Perl]STDIN, while, for, if (0) | 2014.11.19 |