[Perl]for, if

http://seungngil.tistory.com/entry/PerlFor-Foreach를, for문은 2개, if문은 1개를 사용한 프로그램에서 풀어볼것.

use strict;

use warnings;

my @num;

my @array = (2, 3, 4, 5, 6);

my $result;

for (my $i = 0; $i < 10; $i++) {

print ("Please enter the number.(", $i + 1, ") ");

$num[$i] = <STDIN>;

chomp $num[$i];

$result .= ($num[$i], " = ");

if ($num[$i] =~ /[^a-zA-Z]/ || $num[$i] ne "") {

for (my $j = 0; $j < scalar(@array); $j++) {

$result .= ("[" . $array[$j] . "]" . (($num[$i] % $array[$j]) == 0 ? "OK" : "NG"));

}

}

$result .= "\n";

}

print ($result);

3-i.pl