'perl 배열'에 해당되는 글 1건

  1. 2014.11.18 [Perl]배열
Perl2014.11.18 17:28

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


신고

'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
[Perl]홀수, 짝수 구하기  (0) 2014.11.18
Posted by Namseungil