[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 = ;chomp $num; # exceptionif ($num =~ /[a-zA-Z]/ || $num eq "") {print "Not number.\n";exit;} print ($num, " = ");foreach my $elem (0..$#array) {print ("[", $array[$elem], "]", (($num % $array[$..
더보기