숫자를 하나 입력하여, 그 숫자를 출력한다. 거기에 그 숫자가 2,3,4로 나누어떨어질 수 있는지를 출력하시오.
예를들어, 하기와같은 출력한다.
16 = [2]OK = [3]NG = [4]NG
use strict;
use warnings;
my $num;
my @array = (2, 3, 4);
print ("Please enter the number. ");
$num = <STDIN>;
chomp $num;
# exception
if ($num =~ /[a-zA-Z]/ || $num eq "") {
print "Not number.\n";
exit;
}
print ($num, " = ");
foreach my $elem (0..$#array) {
print ("[", $array[$elem], "]", (($num % $array[$elem]) == 0 ? "OK" : "NG"));
if ($elem == $#array) {
print ("\n");
} else {
print (" = ");
}
}
'Perl' 카테고리의 다른 글
[Perl]for, if (0) | 2014.11.19 |
---|---|
[Perl]if 비교기호 (0) | 2014.11.19 |
[Perl]For, Foreach (0) | 2014.11.19 |
[Perl]절대값 구하기 (0) | 2014.11.18 |
[Perl]홀수, 짝수 구하기 (0) | 2014.11.18 |