http://seungngil.tistory.com/entry/Perl%EB%B0%B0%EC%97%B4 문제에, 입력한 숫자의 수를 전부 10개로 하여, 각각에 대해 떨어질수있는지를 판단할것.
또한 그때, 2,3,4, 에 더하여 5와6에도 값이 떨어질 수 있는지를 출력하시오.
use strict;
use warnings;
my @num;
my @array = (2, 3, 4, 5, 6);
for (my $i = 0; $i < 10; $i++) {
print ("Please enter the number.(", $i + 1, ") ");
$num[$i] = <STDIN>;
chomp $num[$i];
# exception
if ($num[$i] =~ /[a-zA-Z]/ || $num[$i] eq "") {
print ("Not number.\n");
exit;
}
}
foreach my $temp (0..$#num) {
print ($num[$temp], " = ");
foreach my $elem (0..$#array) {
print ("[", $array[$elem], "]", (($num[$temp] % $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]배열 (0) | 2014.11.18 |
[Perl]절대값 구하기 (0) | 2014.11.18 |
[Perl]홀수, 짝수 구하기 (0) | 2014.11.18 |