[Perl]배열

숫자를 하나 입력하여, 그 숫자를 출력한다. 거기에 그 숫자가 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 (" = ");

}

}

3-g.pl